Sign in
gnu
/
gcc
/
03ea0ca1189a39e095188b0425c66446cc84a0a5
/
.
/
libgomp
/
testsuite
/
libgomp.fortran
/
tabs1.f90
blob: da334dc419e4458b40c66a5ede53140a87ad523a [
file
] [
log
] [
blame
]
if
(
b
().
ne
.
2
)
stop
1
contains
subroutine a
!
$omp parallel
!
$omp
end
parallel
end
subroutine a
function
b
()
integer
::
b
b
=
1
!
$ b
=
2
end
function
b
end