gcc/testsuite/gfortran.dg/pr66545_2.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-Wuninitialized" }
   3 ! PR fortran/66545
   4 !
   5 program foo
   6    implicit none
   7    call p1
   8    call q1
   9 end program foo
  10
  11 subroutine 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" }
  16 end subroutine p1
  17
  18 subroutine 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" }
  23 end subroutine q1