1! PR fortran/89651
2! { dg-do compile }
3! { dg-additional-options "-Wuninitialized" }
4
5program pr89651
6  integer :: n
7  real, allocatable :: t(:)
8  n = 10
9  allocate (t(n), source = 0.0)
10!$omp parallel firstprivate(t)
11  print *, sum (t) ! { dg-bogus "lbound' may be used uninitialized in this function" }
12                   ! { dg-bogus "ubound' may be used uninitialized in this function" "" { target *-*-* } .-1 }
13                   ! { dg-bogus "offset' may be used uninitialized in this function" "" { target *-*-* } .-2 }
14!$omp end parallel
15!$omp parallel private(t)
16  t = 0.0
17  print *, sum (t) ! { dg-bogus "lbound' may be used uninitialized in this function" }
18                   ! { dg-bogus "ubound' may be used uninitialized in this function" "" { target *-*-* } .-1 }
19                   ! { dg-bogus "offset' may be used uninitialized in this function" "" { target *-*-* } .-2 }
20!$omp end parallel
21end program pr89651
22