| ! PR fortran/100965 | |
| ! { dg-do compile } | |
| implicit none | |
| character(len=:), allocatable :: s | |
| logical :: l | |
| !$omp target map(from: l) | |
| l = allocated (s) | |
| !$omp end target | |
| if (l) stop 1 | |
| !$omp target map(from: l) | |
| l = allocated (s) | |
| !$omp end target | |
| if (l) stop 2 | |
| end |