| ! { 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 |