Sign in
llvm
/
llvm-archive
/
b2afe9617fbec6c0556f5e7467c61aeda2e0ae8f
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
nullify_2.f90
blob: ebfcb374c9eb250fd47d3ebf928ad4e065ad340c [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
PR fortran
/
25146
program i
implicit
none
TYPE
(
a
)
t1
!
{
dg
-
error
"is being used before"
}
nullify
(
t1
%
x
)
!
{
dg
-
error
"error in NULLIFY"
}
end
program