Sign in
llvm
/
llvm-archive
/
9a8810c95c650c6eeabe31fd06e84762a92781ad
/
.
/
llvm-gcc-4.0
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
compile
/
named_args.f90
blob: 1e0b4a6733c8832a49192dbd9e1f2dd56a4a198e [
file
] [
log
] [
blame
]
!
This
caused problems because we created a symbol
for
P
while
!
trying to parse the argument list
as
a substring reference
.
program named_args
implicit
none
integer
,
parameter
::
realdp
=
selected_real_kind
(
p
=
8
,
r
=
30
)
end
program