! { dg-do compile } | |
! PR fortran/103392 - ICE in simplify_bound | |
program p | |
integer, allocatable :: a(1:1) ! { dg-error "deferred shape or assumed rank" } | |
integer :: b(1) = lbound(a) ! { dg-error "does not reduce" } | |
integer :: c(1) = ubound(a) ! { dg-error "does not reduce" } | |
end | |
subroutine s(x, y) | |
type t | |
integer :: i(3) | |
end type t | |
type(t), pointer :: x(:) | |
type(t), allocatable :: y(:) | |
integer, parameter :: m(1) = ubound (x(1)% i) | |
integer :: n(1) = ubound (y(1)% i) | |
end subroutine s |