Sign in
cos
/
mirrors
/
github.com
/
llvm
/
llvm-project
/
refs/heads/main
/
.
/
flang
/
test
/
Semantics
/
bug148559.f90
blob: d7b959ac8f191c3c9fabda0af329fdadaef3c7ed [
file
] [
log
] [
blame
] [
edit
]
!
RUN
:
%
flang_fc1
-
fsyntax
-
only
%
s
!
Regression
test
for
crash
in
semantics on
Cray
pointers
module
m
pointer
(
ptr
,
pp
)
end
module
m
program main
use
m
,
only
:
renamea
=>
pp
use
m
,
only
:
pp
print
*,
renamea
end