gcc/testsuite/gfortran.dg/is_contiguous_3.f90

   1 ! { dg-do  run }
   2 ! { dg-additional-options "-fdump-tree-original" }
   3 ! PR 45424 - compile-time simplification of is_contiguous
   4 program main
   5   real, dimension(10,5) :: a
   6   character (len=1) :: line
   7
   8   write (unit=line,fmt='(L1)') is_contiguous(a(4:2,:))
   9   if (line /= 'F') stop 1
  10
  11   write (unit=line,fmt='(L1)') is_contiguous(a(:,2:4))
  12   if (line /= 'T') stop 1
  13
  14   write (unit=line,fmt='(L1)') is_contiguous(a(2:4,3:4))
  15   if (line /= 'F') stop 3
  16
  17   write (unit=line,fmt='(L1)') is_contiguous(a(::2,:))
  18   if (line /= 'F') stop 4
  19
  20   write (unit=line,fmt='(L1)') is_contiguous(a(:,::2))
  21   if (line /= 'F') stop 5
  22
  23 end program main
  24 ! { dg-final { scan-tree-dump-not " _gfortran_is_contiguous" "original" } }