blob: c15a2b365111b1d6edd94a58c6717abf3c518dcd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
! { 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
|
