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

Subversion Repositories openrisc

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

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


! { dg-do compile }
!
! PR fortran/34425
!
! Contributed by Joost VandeVondele
!
IMPLICIT NONE
INTEGER :: i(-1:1)
INTEGER :: j(-2:-1)
CALL S(i)
CALL S(j) ! { dg-warning "Actual argument contains too few elements for dummy argument 'i' .2/3." }
CONTAINS
 SUBROUTINE S(i)
  INTEGER :: i(0:2)
 END SUBROUTINE
END

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR fortran/34425`
4			`!`
5			`! Contributed by Joost VandeVondele`
6			`!`
7			`IMPLICIT NONE`
8			`INTEGER :: i(-1:1)`
9			`INTEGER :: j(-2:-1)`
10			`CALL S(i)`
11			`CALL S(j) ! { dg-warning "Actual argument contains too few elements for dummy argument 'i' .2/3." }`
12			`CONTAINS`
13			`SUBROUTINE S(i)`
14			`INTEGER :: i(0:2)`
15			`END SUBROUTINE`
16			`END`

Browse

Tools

Subversion Repositories openrisc

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