1  /* { dg-additional-options "-std=gnu99" { target c } } */
       2  
       3  extern
       4  #ifdef __cplusplus
       5  "C"
       6  #endif
       7  void abort ();
       8  
       9  #define M(x, y, z) O(x, y, z)
      10  #define O(x, y, z) x ## _ ## y ## _ ## z
      11  
      12  #pragma omp declare target
      13  
      14  #define F for
      15  #define G f
      16  #define S
      17  #define N(x) M(x, G, normal)
      18  #include "for-2.h"
      19  #undef S
      20  #undef N
      21  #undef F
      22  #undef G
      23  
      24  #pragma omp end declare target
      25  
      26  #undef OMPTGT
      27  #undef OMPFROM
      28  #undef OMPTO
      29  #define DO_PRAGMA(x) _Pragma (#x)
      30  #define OMPTGT DO_PRAGMA (omp target)
      31  #define OMPFROM(v) DO_PRAGMA (omp target update from(v))
      32  #define OMPTO(v) DO_PRAGMA (omp target update to(v))
      33  
      34  #define F teams distribute
      35  #define G td
      36  #define S
      37  #define N(x) M(x, G, normal)
      38  #include "for-2.h"
      39  #undef S
      40  #undef N
      41  #undef F
      42  #undef G
      43  
      44  #define F teams distribute
      45  #define G td_ds128
      46  #define S dist_schedule(static, 128)
      47  #define N(x) M(x, G, normal)
      48  #include "for-2.h"
      49  #undef S
      50  #undef N
      51  #undef F
      52  #undef G
      53  
      54  #define F teams distribute simd
      55  #define G tds
      56  #define S
      57  #define N(x) M(x, G, normal)
      58  #include "for-2.h"
      59  #undef S
      60  #undef N
      61  #undef F
      62  #undef G
      63  
      64  #define F teams distribute simd
      65  #define G tds_ds128
      66  #define S dist_schedule(static, 128)
      67  #define N(x) M(x, G, normal)
      68  #include "for-2.h"
      69  #undef S
      70  #undef N
      71  #undef F
      72  #undef G
      73  
      74  #define F teams distribute parallel for
      75  #define G tdpf
      76  #include "for-1.h"
      77  #undef F
      78  #undef G
      79  
      80  #define F teams distribute parallel for dist_schedule(static, 128)
      81  #define G tdpf_ds128
      82  #include "for-1.h"
      83  #undef F
      84  #undef G
      85  
      86  #define F teams distribute parallel for simd
      87  #define G tdpfs
      88  #include "for-1.h"
      89  #undef F
      90  #undef G
      91  
      92  #define F teams distribute parallel for simd dist_schedule(static, 128)
      93  #define G tdpfs_ds128
      94  #include "for-1.h"
      95  #undef F
      96  #undef G
      97  
      98  int
      99  main ()
     100  {
     101    if (test_td_normal ()
     102        || test_td_ds128_normal ()
     103        || test_tds_normal ()
     104        || test_tds_ds128_normal ()
     105        || test_tdpf_static ()
     106        || test_tdpf_static32 ()
     107        || test_tdpf_auto ()
     108        || test_tdpf_guided32 ()
     109        || test_tdpf_runtime ()
     110        || test_tdpf_ds128_static ()
     111        || test_tdpf_ds128_static32 ()
     112        || test_tdpf_ds128_auto ()
     113        || test_tdpf_ds128_guided32 ()
     114        || test_tdpf_ds128_runtime ()
     115        || test_tdpfs_static ()
     116        || test_tdpfs_static32 ()
     117        || test_tdpfs_auto ()
     118        || test_tdpfs_guided32 ()
     119        || test_tdpfs_runtime ()
     120        || test_tdpfs_ds128_static ()
     121        || test_tdpfs_ds128_static32 ()
     122        || test_tdpfs_ds128_auto ()
     123        || test_tdpfs_ds128_guided32 ()
     124        || test_tdpfs_ds128_runtime ())
     125      abort ();
     126    return 0;
     127  }