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 9MODULE pw_types 10 TYPE pw_type 11 REAL, DIMENSION ( : ), POINTER :: cr 12 END TYPE pw_type 13CONTAINS 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 19END MODULE 20