gcc/testsuite/gfortran.dg/vector_subscript_bound_1.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/45745
   4 ! ICE with {L,U}BOUND intrinsic function as vector subscript on derived
   5 ! type component.
   6 !
   7 ! Original test by Joost Van de Vondele <Joost.VandeVondele@pci.uzh.ch>
   8
   9 MODULE pw_types
  10   TYPE pw_type
  11      REAL, DIMENSION ( : ), POINTER :: cr
  12   END TYPE pw_type
  13 CONTAINS
  14   SUBROUTINE pw_write(pw)
  15     TYPE(pw_type), INTENT(in) :: pw
  16     PRINT *, pw%cr(LBOUND(pw%cr))
  17     PRINT *, pw%cr(UBOUND(pw%cr))
  18   END SUBROUTINE pw_write
  19 END MODULE