blob: 1b5ca7d1c76a6c74829065946eefe1de1a014829 (
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-additional-options -Wuninitialized }
!
! PR fortran/93464
!
! Contributed by G. Steinmetz
!
! Did before ICE in gfc_omp_check_optional_argument
! Additionally, check for uninitialized warnings.
! Compiled with -O (as done here), no show up;
! for -O0, see testcase file 'pr93464-1.f90'.
program p
character :: c(2) = 'a'
character, allocatable :: z(:)
!$acc parallel
!$omp target
! Remark: As run-time check, required either 'c' being allocated or if(allocated(c)':
z = c
!$acc end parallel
!$omp end target
print *, z
end
|
