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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [pointer_assign_7.f90] - Blame information for rev 302

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 "Pointer assignment to non-POINTER" }
 
end program
 

Line No.	Rev	Author	Line
1	302	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 "Pointer assignment to non-POINTER" }`
22
23			`end program`
24

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [pointer_assign_7.f90] - Blame information for rev 302