Sign in
llvm
/
llvm-archive
/
refs/heads/svntag/Apple/llvmgcc42-2104
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
compile
/
shape_reshape.f90
blob: a8e632b1f4b0c3c6d757bd9b0af2149c9f270094 [
file
] [
log
] [
blame
]
!
This
checks that the shape of the SHAPE intrinsic
is
known
.
PROGRAM shape_reshape
INTEGER
,
ALLOCATABLE
::
I
(:,:)
ALLOCATE
(
I
(
2
,
2
))
I
=
RESHAPE
((
/1,2,3,4/
),
SHAPE
=
SHAPE
(
I
))
DEALLOCATE
(
I
)
END
PROGRAM