gcc/testsuite/gfortran.dg/pr66545_1.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-Wall" }
   3 ! PR fortran/66545
   4 !
   5 subroutine p
   6    complex, parameter :: c1 = (c1) ! { dg-error "before its definition" }
   7    complex, parameter :: c2 = c2   ! { dg-error "before its definition" }
   8    complex :: c3 = (c3)            ! { dg-error "has not been declared or is a variable" }
   9    complex :: c4 = c4              ! { dg-error "has not been declared or is a variable" }
  10 end subroutine p
  11
  12 subroutine q
  13    real, parameter :: r1 = (r1)  ! { dg-error "before its definition" }
  14    real, parameter :: r2 = r2    ! { dg-error "before its definition" }
  15    real :: r3 = (r3)             ! { dg-error "has not been declared or is a variable" }
  16    real :: r4 = r4               ! { dg-error "has not been declared or is a variable" }
  17 end subroutine q