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

Subversion Repositories openrisc

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

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


! { dg-do run }
! { dg-options "-fwhole-file -O3" }
! Check that the TYPE_CANONICAL is being correctly set
! for the derived types, when whole file compiling.
! (based on import.f90)
!
subroutine test(x)
  type myType3
    sequence
    integer :: i
  end type myType3
  type(myType3) :: x
  if(x%i /= 7) call abort()
  x%i = 1
end subroutine test
 
 
program foo
  type myType3
    sequence
    integer :: i
  end type myType3
 
  type(myType3) :: z
  z%i = 7
  call test(z)
  if(z%i /= 1) call abort
end program foo

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! { dg-options "-fwhole-file -O3" }`
3			`! Check that the TYPE_CANONICAL is being correctly set`
4			`! for the derived types, when whole file compiling.`
5			`! (based on import.f90)`
6			`!`
7			`subroutine test(x)`
8			`type myType3`
9			`sequence`
10			`integer :: i`
11			`end type myType3`
12			`type(myType3) :: x`
13			`if(x%i /= 7) call abort()`
14			`x%i = 1`
15			`end subroutine test`
16
17
18			`program foo`
19			`type myType3`
20			`sequence`
21			`integer :: i`
22			`end type myType3`
23
24			`type(myType3) :: z`
25			`z%i = 7`
26			`call test(z)`
27			`if(z%i /= 1) call abort`
28			`end program foo`

Browse

Tools

Subversion Repositories openrisc

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