13323a4bdSKiran Chandramohan! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp 23323a4bdSKiran Chandramohan! OpenMP Version 4.5 33323a4bdSKiran Chandramohan! 2.7.1 Loop Construct 43323a4bdSKiran Chandramohan! The do-loop cannot be a DO WHILE or a DO loop without loop control. 53323a4bdSKiran Chandramohan 63323a4bdSKiran Chandramohanprogram omp_do 73323a4bdSKiran Chandramohan integer :: i = 0,k 83323a4bdSKiran Chandramohan !$omp do 9*977cb5d1SKiran Chandramohan !ERROR: The associated loop of a loop-associated directive cannot be a DO WHILE. 103323a4bdSKiran Chandramohan do while (i <= 10) 113323a4bdSKiran Chandramohan print *, "it",i 123323a4bdSKiran Chandramohan i = i+1 133323a4bdSKiran Chandramohan end do 143323a4bdSKiran Chandramohan !$omp end do 153323a4bdSKiran Chandramohan 163323a4bdSKiran Chandramohan !$omp do 17*977cb5d1SKiran Chandramohan !ERROR: The associated loop of a loop-associated directive cannot be a DO WHILE. 183323a4bdSKiran Chandramohan do while (i <= 10) 193323a4bdSKiran Chandramohan do while (j <= 10) 203323a4bdSKiran Chandramohan print *, "it",k 213323a4bdSKiran Chandramohan j = j+1 223323a4bdSKiran Chandramohan end do 233323a4bdSKiran Chandramohan i = i+1 243323a4bdSKiran Chandramohan end do 253323a4bdSKiran Chandramohan !$omp end do 263323a4bdSKiran Chandramohanend program omp_do 27