gcc/testsuite/gfortran.dg/shape_3.f90

   1 ! { dg-do run }
   2 ! PR 34980 - we got a segfault for calling shape
   3 !            with a scalar.
   4 program main
   5  integer :: n
   6  n = 5
   7  open(10,status="scratch")
   8  write (10,*) shape(n)
   9  close(10,status="delete")
  10 end
  11