Sign in
gnu
/
gcc
/
edec2660ff4890ecf8cc191f7c92cf527de51fe2
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
associate_30.f90
blob: ecc9ad06a5620069fbe1b6bbd1220ce06d58808f [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
!
Test
the fix
for
PR67543
!
!
Contributed
by
Gerhard
Steinmetz
<
gerhard
.
steinmetz
.
fortran@t
-
online
.
de
>
!
subroutine s1
associate
(
x
=>
null
())
!
{
dg
-
error
"cannot be NULL()"
}
end
associate
end
subroutine