Sign in
gnu
/
gcc
/
f00b5710a30f22efc3171c393e56aeb335c3cd39
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr71688.f90
blob: dbb6d185cf46e050060b8f6f77433c7cfa9d36bc [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-fcoarray=lib"
}
program p
call s
contains
subroutine s
real
::
x
[*]
=
1
block
end
block
x
=
2
end
end