Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
pr108528.f90
blob: 7a353cb7eab15745767c57a933ece4fdcd84daa9 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
PR fortran
/
108528
-
!
Contributed
by
G
.
Steinmetz
function
f
()
!
{
dg
-
error
"mismatched array specifications"
}
integer
::
f
((
2.
))
!
{
dg
-
error
"must be of INTEGER type"
}
integer
::
g
((
2
))
entry g
()
end