gcc/testsuite/gfortran.dg/bound_1.f90

   1 ! { dg-do run }
   2   implicit none
   3
   4   type test_type
   5     integer, dimension(5) :: a
   6   end type test_type
   7
   8   type (test_type), target :: tt(2)
   9   integer i
  10
  11   i = ubound(tt(1)%a, 1)
  12   if (i/=5) call abort()
  13   i = lbound(tt(1)%a, 1)
  14   if (i/=1) call abort()
  15
  16   i = ubound(tt, 1)
  17   if (i/=2) call abort()
  18   i = lbound(tt, 1)
  19   if (i/=1) call abort()
  20 end