Skip to content

Commit aff5a95

Browse files
committed
unit_test_parameters_m: Replace an unnecessary enum
1 parent 88cc00f commit aff5a95

File tree

1 file changed

+2
-3
lines changed

1 file changed

+2
-3
lines changed

src/caffeine/unit_test_parameters_m.F90

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1,16 +1,15 @@
11
! Copyright (c), The Regents of the University
22
! Terms of use are as specified in LICENSE.txt
33
module unit_test_parameters_m
4+
use iso_c_binding, only: c_int
45
use prif, only: prif_sync_all, prif_this_image_no_coarray
56
!! Define values and utilities for consistent use throughout the test suite
67
implicit none
78

89
public
910

10-
enum, bind(C)
11-
enumerator :: expected_stop_code=99, expected_error_stop_code
11+
integer(c_int), parameter :: expected_stop_code=99, expected_error_stop_code=100
1212
! used in stop/error-stop unit tests and example/test-support supporting programs
13-
end enum
1413

1514
character(len=:), allocatable :: subjob_prefix
1615

0 commit comments

Comments
 (0)