Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
torture
/
compile
/
inquiry_1.f90
blob: 12d67fc5e921df6240cce912caae4175ac80d699 [
file
] [
log
] [
blame
]
!
Check
that inquiry functions are allowed
as
specification expressions
.
subroutine inquiry
(
x1
)
implicit
none
real
,
dimension
(
1
:),
intent
(
out
)
::
x1
real
,
dimension
(
1
:
size
(
x1
))
::
x3
x3
=
0
x1
=
x3
end
subroutine