Skip to content

Commit 6732ddf

Browse files
authored
Fix compilation with Intel Fortran (#17)
Use !$omp prefix in continuation line
1 parent 762b556 commit 6732ddf

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/testdrive.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -335,7 +335,7 @@ recursive subroutine run_testsuite(collect, unit, stat, parallel)
335335
call collect(testsuite)
336336

337337
!$omp parallel do schedule(dynamic) shared(testsuite, unit) reduction(+:stat) &
338-
!$ if (parallel_)
338+
!$omp if (parallel_)
339339
do it = 1, size(testsuite)
340340
!$omp critical(testdrive_testsuite)
341341
write(unit, '(1x, 3(1x, a), 1x, "(", i0, "/", i0, ")")') &

0 commit comments

Comments
 (0)