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/] [used_before_typed_5.f90] - Blame information for rev 302

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


! { dg-do compile }
! { dg-options "-pedantic -std=f95" }
 
! Check that DIMENSION/POINTER/ALLOCATABLE/INTENT statements *do* allow
! symbols to be typed later.
 
SUBROUTINE test (a)
  IMPLICIT REAL (a-z)
 
  ! Those should *not* IMPLICIT-type the symbols:
  INTENT(IN) :: a
  DIMENSION :: b(:)
  POINTER :: c
  ALLOCATABLE :: b
 
  ! So this is ok:
  INTEGER :: a, b, c
 
END SUBROUTINE test

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`! { dg-options "-pedantic -std=f95" }`
3
4			`! Check that DIMENSION/POINTER/ALLOCATABLE/INTENT statements do allow`
5			`! symbols to be typed later.`
6
7			`SUBROUTINE test (a)`
8			`IMPLICIT REAL (a-z)`
9
10			`! Those should not IMPLICIT-type the symbols:`
11			`INTENT(IN) :: a`
12			`DIMENSION :: b(:)`
13			`POINTER :: c`
14			`ALLOCATABLE :: b`
15
16			`! So this is ok:`
17			`INTEGER :: a, b, c`
18
19			`END SUBROUTINE test`

Browse

Tools

Subversion Repositories openrisc

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