1! { dg-do compile }
2
3program test
4  implicit none
5
6  integer :: i
7  real :: x
8
9  ! sentinel may only be preceeded by white space
10  x = 0.0 !$acc parallel ! comment
11  ! sentinel must appear as a single word
12  ! $acc parallel ! comment
13
14  ! note that '!$ ' is OpenMP's conditional compilation sentinel
15  !$ acc ignored_due_to_space  ! comment
16
17  ! directive lines must have space after sentinel
18  !$accparallel ! { dg-warning "followed by a space" }
19  do i = 1,10
20    x = x + 0.3
21  enddo
22  !$acc end parallel ! { dg-error "Unexpected" }
23  print *, x
24end
25