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

Subversion Repositories openrisc

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

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


! { dg-do compile }
 
! PR fortran/35837
! We used do have a problem with resolving "save all" and nested namespaces.
 
! Contributed by Tobias Burnus 
 
module g95bug
save
integer :: i=20
contains
pure function tell_i() result (answer)
  integer :: answer
  answer=i
end function tell_i
end module g95bug
 
! { dg-final { cleanup-modules "g95bug" } }

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2
3			`! PR fortran/35837`
4			`! We used do have a problem with resolving "save all" and nested namespaces.`
5
6			`! Contributed by Tobias Burnus`
7
8			`module g95bug`
9			`save`
10			`integer :: i=20`
11			`contains`
12			`pure function tell_i() result (answer)`
13			`integer :: answer`
14			`answer=i`
15			`end function tell_i`
16			`end module g95bug`
17
18			`! { dg-final { cleanup-modules "g95bug" } }`

Browse

Tools

Subversion Repositories openrisc

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