OSDN Git Service

2014-03-09 Janus Weil <janus@gcc.gnu.org>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / shape_8.f90
1 ! { dg-do compile }
2 !
3 ! PR 60450: [4.7/4.8 Regression] ICE with SHAPE intrinsic
4 !
5 ! Contributed by Dave Allured <dave.allured@noaa.gov>
6
7   real, allocatable :: x(:,:)
8   allocate (x(3,2), source=99.)
9   print *, shape (x / 10.0)
10 end