1! { dg-do compile }
2! { dg-options "-Wall" }
3! PR fortran/66545
4!
5subroutine 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" }
10end subroutine p
11
12subroutine 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" }
17end subroutine q
18