Sign in
llvm
/
llvm-project
/
flang
/
a028647d2186e550ec1689d88d654c3110d59a3f
/
.
/
test
/
Semantics
/
structconst07.f90
blob: a34289a817af4416f5ad84428fcd5eade93a37ad [
file
] [
log
] [
blame
]
!
RUN
:
%
flang_fc1
-
fdebug
-
unparse
%
s
2
>&
1
|
FileCheck
%
s
type
::
hasPointer
class
(*),
pointer
::
sp
end
type
type
(
hasPointer
)
hp
!
CHECK
:
hp
=
haspointer
(
sp
=
NULL
())
hp
=
hasPointer
()
end