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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log


! { dg-do compile }
! Tests the fix for PR28172, in which an ICE would result from
! the contained call with an alternate retrun.
 
! Contributed by Tobias Schl�ter 
 
program blubb
  call otherini(*998)
  stop
998 stop
contains
 subroutine init
   call otherini(*999)
   return
999 stop
 end subroutine init
end program blubb

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! Tests the fix for PR28172, in which an ICE would result from`
3			`! the contained call with an alternate retrun.`
4
5			`! Contributed by Tobias Schl�ter`
6
7			`program blubb`
8			`call otherini(*998)`
9			`stop`
10			`998 stop`
11			`contains`
12			`subroutine init`
13			`call otherini(*999)`
14			`return`
15			`999 stop`
16			`end subroutine init`
17			`end program blubb`

Browse

Tools

Subversion Repositories openrisc

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