We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 88cc00f commit aff5a95Copy full SHA for aff5a95
src/caffeine/unit_test_parameters_m.F90
@@ -1,16 +1,15 @@
1
! Copyright (c), The Regents of the University
2
! Terms of use are as specified in LICENSE.txt
3
module unit_test_parameters_m
4
+ use iso_c_binding, only: c_int
5
use prif, only: prif_sync_all, prif_this_image_no_coarray
6
!! Define values and utilities for consistent use throughout the test suite
7
implicit none
8
9
public
10
- enum, bind(C)
11
- enumerator :: expected_stop_code=99, expected_error_stop_code
+ integer(c_int), parameter :: expected_stop_code=99, expected_error_stop_code=100
12
! used in stop/error-stop unit tests and example/test-support supporting programs
13
- end enum
14
15
character(len=:), allocatable :: subjob_prefix
16
0 commit comments