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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [class_1.f03] - Blame information for rev 774

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


! { dg-do run }
!
! PR 40940: CLASS statement
!
! Contributed by Janus Weil 
 
implicit none
 
type t
  integer :: comp
  class(t),pointer :: c2
end type
 
class(t),pointer :: c1
 
allocate(c1)
 
c1%comp = 5
c1%c2 => c1
 
print *,c1%comp
 
call sub(c1)
 
if (c1%comp/=5) call abort()
 
deallocate(c1)
 
contains
 
  subroutine sub (c3)
    class(t) :: c3
    print *,c3%comp
  end subroutine
 
end
 

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`!`
3			`! PR 40940: CLASS statement`
4			`!`
5			`! Contributed by Janus Weil`
6
7			`implicit none`
8
9			`type t`
10			`integer :: comp`
11			`class(t),pointer :: c2`
12			`end type`
13
14			`class(t),pointer :: c1`
15
16			`allocate(c1)`
17
18			`c1%comp = 5`
19			`c1%c2 => c1`
20
21			`print *,c1%comp`
22
23			`call sub(c1)`
24
25			`if (c1%comp/=5) call abort()`
26
27			`deallocate(c1)`
28
29			`contains`
30
31			`subroutine sub (c3)`
32			`class(t) :: c3`
33			`print *,c3%comp`
34			`end subroutine`
35
36			`end`
37

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [class_1.f03] - Blame information for rev 774