! { 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)::aDIMENSION::b(:)POINTER::cALLOCATABLE::b! So this is ok:INTEGER::a,b,cEND SUBROUTINE test