1! PR fortran/100965
2! { dg-do compile }
3
4implicit none
5 character(len=:), allocatable :: s
6 logical :: l
7 !$omp target map(from: l)
8 l = allocated (s)
9 !$omp end target
10 if (l) stop 1
11
12 !$omp target map(from: l)
13 l = allocated (s)
14 !$omp end target
15 if (l) stop 2
16end
17