1760eca1dSValentin Clement! RUN: %python %S/../test_errors.py %s %flang -fopenacc 2760eca1dSValentin Clement 3760eca1dSValentin Clementprogram openacc_clause_validity 4760eca1dSValentin Clement 5760eca1dSValentin Clement implicit none 6760eca1dSValentin Clement 7*bc323460SValentin Clement (バレンタイン クレメン) integer :: i, n 8760eca1dSValentin Clement 9760eca1dSValentin Clement i = 0 10760eca1dSValentin Clement 11*bc323460SValentin Clement (バレンタイン クレメン) !ERROR: A DO loop must follow the LOOP directive 12760eca1dSValentin Clement !$acc loop 13760eca1dSValentin Clement i = 1 14760eca1dSValentin Clement 15*bc323460SValentin Clement (バレンタイン クレメン) !$acc loop 16*bc323460SValentin Clement (バレンタイン クレメン) do 100 i=0, n 17*bc323460SValentin Clement (バレンタイン クレメン) 100 continue 18*bc323460SValentin Clement (バレンタイン クレメン) 19760eca1dSValentin Clementend 20