• Home
  • Line#
  • Scopes#
  • Navigate#
  • Raw
  • Download
1! RUN: %S/test_errors.sh %s %t %f18 -fopenmp
2! XFAIL: *
3
4! OpenMP Version 4.5
5! 2.7.1 Loop Construct
6! The do-loop iteration variable must be of type integer.
7
8program omp_do
9  real i, j, k
10
11  !$omp do
12  !ERROR: The do-loop iteration variable must be of type integer.
13  do i = 1, 10
14    do j = 1, 10
15      print *, "Hello"
16    end do
17  end do
18  !$omp end do
19
20end program omp_do
21