1! { dg-do compile }
2! { dg-options "-Wuninitialized" }
3! PR fortran/66545
4!
5program foo
6   implicit none
7   call p1
8   call q1
9end program foo
10
11subroutine p1
12   complex :: c5
13   complex :: c6
14   c5 = (c5)      ! { dg-warning "used uninitialized in this" }
15   c6 = c6        ! { dg-warning "used uninitialized in this" }
16end subroutine p1
17
18subroutine q1
19   real :: r5
20   real :: r6
21   r5 = (r5)   ! { dg-warning "used uninitialized in this" }
22   r6 = r6     ! { dg-warning "used uninitialized in this" }
23end subroutine q1
24