https://gcc.gnu.org/bugzilla/show_bug.cgi?id=85703
Dominique d'Humieres changed:
What|Removed |Added
Priority|P3 |P4
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=85703
--- Comment #2 from G. Steinmetz ---
Similar for openmp, e.g.
$ cat za.f90
character function f()
!$omp single
!$omp end single
f = 'a'
end
$ cat zb.f90
function f() result(z)
character :: z
!$omp single
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=85703
--- Comment #1 from G. Steinmetz ---
Compiles with result type changed to real or integer, etc.
$ cat z2.f90
real function f()
!$acc parallel loop reduction(+:a)
do i = 1, 4
end do
!$acc end parallel loop
end