Sign in
gnu
/
gcc
/
fba228e259dd5112851527f2dbb62c5601100985
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
argument_checking_20.f90
blob: 12788cc868c586ef1c91a372b7555dbf694a0e13 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
program main
real
::
a
(
10
),
b
(
10
,
10
)
!
This
should be caugt
call foo
(
1.0
)
!
{
dg
-
error
"Rank mismatch"
}
call foo
(
b
)
!
{
dg
-
error
"Rank mismatch"
}
!
This
is
OK
call bar
(
a
)
call bar
(
b
)
end
program main