Sign in
llvm
/
llvm-archive
/
8a078a762a98ba34ad83dc2c15e5ff2b86792d78
/
.
/
llvm-gcc-4.2
/
llvmgcc42-2326.9
/
gcc
/
testsuite
/
gfortran.dg
/
c_by_val_3.f90
blob: bf7aedf8ba4a7f08e1c27761af0a6dd857b5028e [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-std=f95"
}
program c_by_val_3
external bar
real
(
4
)
::
bar
print
*,
bar
(%
VAL
(
0.0
))
!
{
dg
-
error
"argument list function"
}
end
program c_by_val_3