URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [pointer_assign_7.f90] - Blame information for rev 749

Go to most recent revision | Details | Compare with Previous | View Log


! { dg-do compile }
!
! PR 39931: ICE on invalid Fortran 95 code (bad pointer assignment)
!
! Contributed by Thomas Orgis 
 
program point_of_no_return
 
implicit none
 
type face_t
  integer :: bla
end type
 
integer, pointer :: blu
type(face_t), pointer :: face
 
allocate(face)
allocate(blu)
 
face%bla => blu  ! { dg-error "Non-POINTER in pointer association context" }
 
end program
 

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR 39931: ICE on invalid Fortran 95 code (bad pointer assignment)`
4			`!`
5			`! Contributed by Thomas Orgis`
6
7			`program point_of_no_return`
8
9			`implicit none`
10
11			`type face_t`
12			`integer :: bla`
13			`end type`
14
15			`integer, pointer :: blu`
16			`type(face_t), pointer :: face`
17
18			`allocate(face)`
19			`allocate(blu)`
20
21			`face%bla => blu ! { dg-error "Non-POINTER in pointer association context" }`
22
23			`end program`
24

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [pointer_assign_7.f90] - Blame information for rev 749