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/] [der_pointer_2.f90] - Blame information for rev 414

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


! { dg-do compile }
! PR 15975, PR 16606
! Pointers to derived types with initialized components
!
! Contributed by Erik Edelmann 
!
SUBROUTINE N
  TYPE T
    INTEGER :: I = 99
  END TYPE T
  TYPE(T), POINTER :: P
  TYPE(T), TARGET  :: Q
  P => Q
  if (P%I.ne.99) call abort ()
END SUBROUTINE N
 
program test_pr15975
  call n ()
end program test_pr15975
 

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`! PR 15975, PR 16606`
3			`! Pointers to derived types with initialized components`
4			`!`
5			`! Contributed by Erik Edelmann`
6			`!`
7			`SUBROUTINE N`
8			`TYPE T`
9			`INTEGER :: I = 99`
10			`END TYPE T`
11			`TYPE(T), POINTER :: P`
12			`TYPE(T), TARGET :: Q`
13			`P => Q`
14			`if (P%I.ne.99) call abort ()`
15			`END SUBROUTINE N`
16
17			`program test_pr15975`
18			`call n ()`
19			`end program test_pr15975`
20

Browse

Tools

Subversion Repositories openrisc_me

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