| ! { dg-do compile } | |
| ! { dg-options "-Wuninitialized" } | |
| ! PR fortran/66545 | |
| ! | |
| program foo | |
| implicit none | |
| call p1 | |
| call q1 | |
| end program foo | |
| subroutine p1 | |
| complex :: c5 | |
| complex :: c6 | |
| c5 = (c5) ! { dg-warning "used uninitialized" } | |
| c6 = c6 ! { dg-warning "used uninitialized" } | |
| end subroutine p1 | |
| subroutine q1 | |
| real :: r5 | |
| real :: r6 | |
| r5 = (r5) ! { dg-warning "used uninitialized" } | |
| r6 = r6 ! { dg-warning "used uninitialized" } | |
| end subroutine q1 |