gcc/testsuite/gfortran.dg/shape_9.f90

   1 ! { dg-do  run }
   2 ! { dg-require-effective-target lto }
   3 ! { dg-options "-flto" }
   4 ! Check that there are no warnings with LTO for a KIND argument.
   5 !
   6 program test
   7    implicit none
   8    real, allocatable :: x(:,:)
   9
  10    allocate(x(2,5))
  11    if (any(shape(x) /= [ 2, 5 ])) STOP 1
  12    if (any(shape(x,kind=1) /= [ 2, 5 ])) STOP 2
  13    if (any(shape(x,kind=2) /= [ 2, 5 ])) STOP 3
  14    if (any(shape(x,kind=4) /= [ 2, 5 ])) STOP 4
  15    if (any(shape(x,kind=8) /= [ 2, 5 ])) STOP 5
  16  end program test