Sign in
llvm
/
llvm-archive
/
1456578521548c1ea3e191fcd25bb39efd8203cd
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.fortran-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