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