blob: 67f7ca9cc2fa1350d1b81ed9f3c2e3f05385abaa (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
! { dg-do compile }
! { dg-options "-O2 -Wuninitialized" }
! PR 67679 - this used to cause an undefined warning for
! variables generated by the compiler.
subroutine s(h, Gmin, r)
implicit none
real, intent(in) :: Gmin(3), h(3)
integer, intent(inout) :: r
integer :: x_min(3), x_max(3), k, iStat
logical, dimension(:), allocatable :: check
do k = 1,1
x_min(k) = int(Gmin(k)*h(k))
x_max(k) = int(Gmin(k)*h(k))
end do
allocate(check(x_min(1):x_max(1)),stat=iStat)
check(:) = .false.
do k = x_min(1),x_max(1)
r = r + 1
end do
end
|
