4 ! ICE with {L,U}BOUND intrinsic function as vector subscript on derived
7 ! Original test by Joost Van de Vondele <Joost.VandeVondele@pci.uzh.ch>
11 REAL, DIMENSION ( : ), POINTER :: cr
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