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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log


! { dg-do compile }
! PR fortran/26551
 function func2()
   integer func2
   func2 = 42
   return
 entry c() result (foo)
   foo = barbar()
   return
 entry b() result (bar)
   bar = 12
   return
 contains
   function barbar ()
     barbar = b () ! { dg-error "is not RECURSIVE" }
   end function barbar
 end function

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! PR fortran/26551`
3			`function func2()`
4			`integer func2`
5			`func2 = 42`
6			`return`
7			`entry c() result (foo)`
8			`foo = barbar()`
9			`return`
10			`entry b() result (bar)`
11			`bar = 12`
12			`return`
13			`contains`
14			`function barbar ()`
15			`barbar = b () ! { dg-error "is not RECURSIVE" }`
16			`end function barbar`
17			`end function`

Browse

Tools

Subversion Repositories openrisc

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