blob: 3efecdff7690a9d9fced60100c16e2b3f9d67aef (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
! { 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
|
