16 lines
475 B
Fortran
16 lines
475 B
Fortran
! { dg-do compile }
|
|
! Tests the fix for PR35470, in which the pointer assignment would fail
|
|
! because the assumed size 'arr' would get mixed up with the component
|
|
! 'p' in the check for the upper bound of an assumed size array.
|
|
!
|
|
! Contributed by Antony Lewis <antony@cosmologist.info>
|
|
!
|
|
subroutine sub(arr)
|
|
type real_pointer
|
|
real, pointer :: p(:)
|
|
end type real_pointer
|
|
type(real_pointer), dimension(*) :: arr
|
|
real, pointer :: p(:)
|
|
p => arr(1)%p
|
|
end subroutine
|