Sign in
gnu
/
gcc
/
refs/heads/devel/omp/gcc-9
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr83246.f90
blob: 32097e3fd38bb8cbf706494bfc34d80118418a54 [
file
] [
log
] [
blame
]
!
PR fortran
/
83246
!
{
dg
-
do
link
}
program dusty_corner
write
(*,*)
'BLOCK TESTS'
MAKEDATAP
:
block
integer
,
parameter
::
scratch
(*)=[
1
,
2
,
3
]
write
(*,*)
scratch
endblock MAKEDATAP
end
program dusty_corner