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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [elemental_args_check_2.f90] - Blame information for rev 551

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


! { dg-do compile }
!
! PR fortran/34660
!
! Check for elemental constrain C1277 (F2003).
! Contributed by Joost VandeVondele.
!
MODULE M1
IMPLICIT NONE
CONTAINS
 PURE ELEMENTAL SUBROUTINE S1(I,F)
   INTEGER, INTENT(IN) :: I
   INTERFACE
     PURE INTEGER FUNCTION F(I) ! { dg-error "Dummy procedure 'f' not allowed in elemental procedure" }
      INTEGER, INTENT(IN) :: I
     END FUNCTION F
   END INTERFACE
 END SUBROUTINE S1
END MODULE M1

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR fortran/34660`
4			`!`
5			`! Check for elemental constrain C1277 (F2003).`
6			`! Contributed by Joost VandeVondele.`
7			`!`
8			`MODULE M1`
9			`IMPLICIT NONE`
10			`CONTAINS`
11			`PURE ELEMENTAL SUBROUTINE S1(I,F)`
12			`INTEGER, INTENT(IN) :: I`
13			`INTERFACE`
14			`PURE INTEGER FUNCTION F(I) ! { dg-error "Dummy procedure 'f' not allowed in elemental procedure" }`
15			`INTEGER, INTENT(IN) :: I`
16			`END FUNCTION F`
17			`END INTERFACE`
18			`END SUBROUTINE S1`
19			`END MODULE M1`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [elemental_args_check_2.f90] - Blame information for rev 551