1  /* { dg-additional-options "-fdump-tree-omplower" } */
       2  
       3  /* PR fortran/108545 */
       4  
       5  /* { dg-final { scan-tree-dump "#pragma omp target enter data map\\(struct:my_struct \\\[len: 1\\\]\\) map\\(to:my_struct.u \\\[len: \[0-9\]+\\\]\\)" "omplower" } } */
       6  /* { dg-final { scan-tree-dump "#pragma omp target enter data map\\(to:my_struct3 \\\[len: \[0-9\]+\\\]\\)" "omplower" } } */
       7  
       8  
       9  volatile struct t {
      10    struct t2 { int *a; int c; } u;
      11    int b;
      12  } my_struct;
      13  volatile struct t3 { int *a; int c; } my_struct3;
      14  
      15  void f()
      16  {
      17    #pragma omp target enter data map(to:my_struct.u) map(to:my_struct.u.a)
      18    #pragma omp target enter data map(to:my_struct3) map(to:my_struct3.a)
      19  }