File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -44,6 +44,18 @@ program test_assert_macros
4444 block
4545 integer :: computed_checksum = 37 , expected_checksum = 37
4646
47+ #if defined(_CRAYFTN)
48+ ! Cray Fortran uses different line continuations in macro invocations
49+ call_assert_diagnose( computed_checksum == expected_checksum, &
50+ " Checksum mismatch failure!" , &
51+ expected_checksum )
52+ print * ," passes with macro-style line breaks"
53+
54+ call_assert_diagnose( computed_checksum == expected_checksum, & ! ensured since version 3.14
55+ " Checksum mismatch failure!" , & ! TODO: write a better message here
56+ computed_checksum )
57+ print * ," passes with C block comments embedded in macro"
58+ #else
4759 call_assert_diagnose( computed_checksum == expected_checksum, \
4860 " Checksum mismatch failure!" , \
4961 expected_checksum )
@@ -53,6 +65,7 @@ program test_assert_macros
5365 " Checksum mismatch failure!" , /* TODO: write a better message here */ \
5466 computed_checksum )
5567 print * ," passes with C block comments embedded in macro"
68+ #endif
5669
5770 end block
5871
You can’t perform that action at this time.
0 commit comments