20 lines
388 B
Fortran
20 lines
388 B
Fortran
! { 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
|