12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364 |
- ! { dg-do run }
- ! { dg-additional-options -Wuninitialized }
- module m
- implicit none
- contains
- pure subroutine add_ps_routine(a, b, c)
- implicit none
- !$acc routine seq
- integer, intent(in) :: a, b
- integer, intent(out) :: c
- integer, parameter :: n = 10
- integer :: i
- do i = 1, n
- if (i .eq. 5) then
- c = a + b
- end if
- end do
- end subroutine add_ps_routine
- elemental impure function add_ef(a, b) result(c)
- implicit none
- !$acc routine
- integer, intent(in) :: a, b
- integer :: c
- call add_ps_routine(a, b, c)
- end function add_ef
- ! This '-Wmaybe-uninitialized' diagnostic appears for '-O2' only; PR102192.
- ! { dg-xfail-if PR102192 { *-*-* } { -O2 } }
- ! There's another instance (again '-O2' only) further down, but as any number
- ! of 'dg-xfail-if' only apply to the first 'dg-bogus' etc., we have no way to
- ! XFAIL that other one, so we instead match all of them here (via line '0'):
- ! { dg-bogus {'c' may be used uninitialized} {} { target *-*-* } 0 }
- ! { TODO_dg-bogus {'c' may be used uninitialized} {} { target *-*-* } .-7 }
- end module m
- program main
- use m
- implicit none
- integer, parameter :: n = 10
- integer, dimension(n) :: a_a
- integer, dimension(n) :: b_a
- integer, dimension(n) :: c_a
- integer :: i
- a_a = [(3 * i, i = 1, n)]
- b_a = [(-2 * i, i = 1, n)]
- !$acc parallel copyin(a_a, b_a) copyout(c_a)
- !$acc loop gang
- do i = 1, n
- if (i .eq. 4) then
- c_a = add_ef(a_a, b_a)
- ! See above.
- ! { TODO_dg-xfail-if PR102192 { *-*-* } { -O2 } }
- ! { TODO_dg-bogus {'c' may be used uninitialized} {} { target *-*-* } .-3 }
- end if
- end do
- !$acc end parallel
- if (any (c_a /= [(i, i=1, 10)])) stop 1
- !print *, a
- end program main
|