URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [data_pointer_1.f90] - Rev 302
Go to most recent revision | Compare with Previous | Blame | View Log
! { dg-do compile }
! Test the fixes for PR38917 and 38918, in which the NULL values caused errors.
!
! Contributed by Dick Hendrickson <dick.hendrickson@gmail.com>
! and Tobias Burnus <burnus@gcc.gnu.org>
!
SUBROUTINE PF0009
! PR38918
TYPE :: HAS_POINTER
INTEGER, POINTER :: PTR_S
END TYPE HAS_POINTER
TYPE (HAS_POINTER) :: PTR_ARRAY(5)
DATA PTR_ARRAY(1)%PTR_S /NULL()/
end subroutine pf0009
SUBROUTINE PF0005
! PR38917
REAL, SAVE, POINTER :: PTR1
INTEGER, POINTER :: PTR2(:,:,:)
CHARACTER(LEN=1), SAVE, POINTER :: PTR3(:)
DATA PTR1 / NULL() /
DATA PTR2 / NULL() /
DATA PTR3 / NULL() /
end subroutine pf0005
! Tobias pointed out that this would cause an ICE rather than an error.
subroutine tobias
integer, pointer :: ptr(:)
data ptr(1) /NULL()/ ! { dg-error "must be a full array" }
end subroutine tobias
Go to most recent revision | Compare with Previous | Blame | View Log