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

Subversion Repositories openrisc

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

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


! { dg-do compile }
!
! PR 37254: Reject valid PROCEDURE statement with implicit interface
!
! Original test case by Dominique d'Humieres 
! Modified by Janus Weil 
 
  real function proc3( arg1 )
     integer :: arg1
     proc3 = arg1+7
  end function proc3
 
program myProg
  PROCEDURE () :: proc3
  call proc4( proc3 )
 
contains
 
  subroutine proc4( arg1 )
     PROCEDURE(real) :: arg1
     print*, 'the func: ', arg1(0)
  end subroutine proc4
 
end program myProg
 

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR 37254: Reject valid PROCEDURE statement with implicit interface`
4			`!`
5			`! Original test case by Dominique d'Humieres`
6			`! Modified by Janus Weil`
7
8			`real function proc3( arg1 )`
9			`integer :: arg1`
10			`proc3 = arg1+7`
11			`end function proc3`
12
13			`program myProg`
14			`PROCEDURE () :: proc3`
15			`call proc4( proc3 )`
16
17			`contains`
18
19			`subroutine proc4( arg1 )`
20			`PROCEDURE(real) :: arg1`
21			`print*, 'the func: ', arg1(0)`
22			`end subroutine proc4`
23
24			`end program myProg`
25

Browse

Tools

Subversion Repositories openrisc

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