Sign in
gnu
/
gcc
/
f49e3d28be44179f07b8a06159139ce77096dda7
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
unlimited_polymorphic_10.f90
blob: 04518d6c941faa4f51bdc5f7a80094c8a91ab2c9 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
!
PR fortran
/
58658
!
!
Contributed
by
Vladim
Ã
r
Fuka
!
subroutine
sub
(
a
)
class
(*),
allocatable
::
a
a
=>
null
()
!
{
dg
-
error
"Non-POINTER in pointer association context \\(pointer assignment\\)"
}
end
subroutine