gcc/testsuite/gfortran.dg/ubound_1.f90

   1 ! { dg-do run }
   2 !
   3 ! PR fortran/99027
   4 !
   5   program test
   6     integer, dimension (1:3,1:6) :: array
   7     integer, dimension (2:5,3:7,4:9,-4:2) :: array2
   8
   9     if (any ([4] /= ubound (array (1, 1:4)))) stop 1
  10     if (4 /= ubound (array (1, 1:4), dim=1)) stop 2
  11
  12     if (any (ubound (array2 (3,3,4,:))        /= [4+1+2])) stop 3
  13     if (     ubound (array2 (3,3,4,:), dim=1) /=  4+1+2 ) stop 4
  14
  15     if (any (ubound (array2 (3,:,4,:))        /= [7-3+1, 4+1+2])) stop 5
  16     if (     ubound (array2 (3,:,4,:), dim=1) /=  7-3+1       ) stop 6
  17     if (     ubound (array2 (3,:,4,:), dim=2) /=         4+1+2) stop 7
  18     if (any (ubound (array2 (3,:,4:4,:))        /= [7-3+1, 1, 4+1+2])) stop 8
  19     if (     ubound (array2 (3,:,4:4,:), dim=1) /=  7-3+1          ) stop 9
  20     if (     ubound (array2 (3,:,4:4,:), dim=2) /=         1       ) stop 10
  21     if (     ubound (array2 (3,:,4:4,:), dim=3) /=            4+1+2) stop 11
  22   end program test