Sign in
gnu
/
gcc
/
926d9947847a0683cf34de6fc231209747576088
/
.
/
libgomp
/
testsuite
/
libgomp.fortran
/
tabs1.f90
blob: 4f3d4f5b435d5daa1749fadb6e04007f7b8af32e [
file
] [
log
] [
blame
]
if
(
b
().
ne
.
2
)
call abort
contains
subroutine a
!
$omp parallel
!
$omp
end
parallel
end
subroutine a
function
b
()
integer
::
b
b
=
1
!
$ b
=
2
end
function
b
end