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

Subversion Repositories openrisc

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

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


! { dg-do compile }
! { dg-options "-fwhole-file -Wno-unused-dummy-argument" }
!
! PR fortran/34260
!
      PROGRAM MAIN
      REAL A
      CALL SUB(A)             ! { dg-error "requires an explicit interface" }
      END PROGRAM
 
      SUBROUTINE SUB(A,I)
      REAL :: A
      INTEGER, OPTIONAL :: I
      END SUBROUTINE

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! { dg-options "-fwhole-file -Wno-unused-dummy-argument" }`
3			`!`
4			`! PR fortran/34260`
5			`!`
6			`PROGRAM MAIN`
7			`REAL A`
8			`CALL SUB(A) ! { dg-error "requires an explicit interface" }`
9			`END PROGRAM`
10
11			`SUBROUTINE SUB(A,I)`
12			`REAL :: A`
13			`INTEGER, OPTIONAL :: I`
14			`END SUBROUTINE`

Browse

Tools

Subversion Repositories openrisc

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