Sign in
llvm
/
llvm-project
/
flang
/
refs/heads/main
/
.
/
test
/
Semantics
/
implicit12.f90
blob: bff2cb1545b13ec83727d4b481aad527a8bea71f [
file
] [
log
] [
blame
]
!
RUN
:
%
python
%
S
/
test_errors
.
py
%
s
%
flang_fc1
use
iso_c_binding
,
only
:
c_ptr
,
c_associated
implicit
none
(
external
)
type
(
c_ptr
)
::
cptr
if
(.
not
.
c_associated
(
cptr
))
then
return
end
if
end