1! PR fortran/102313 2 3!$omp end ATOMIC ! { dg-error "Unexpected !.OMP END ATOMIC" } 4 5!$omp end CRITICAL ! { dg-error "Unexpected !.OMP END CRITICAL" } 6 7!$omp end DISTRIBUTE ! { dg-error "Unexpected !.OMP END DISTRIBUTE" } 8 9!$omp end DISTRIBUTE PARALLEL DO ! { dg-error "Unexpected !.OMP END DISTRIBUTE PARALLEL DO" } 10 11!$omp end DISTRIBUTE PARALLEL DO SIMD ! { dg-error "Unexpected !.OMP END DISTRIBUTE PARALLEL DO SIMD" } 12 13!$omp end DISTRIBUTE SIMD ! { dg-error "Unexpected !.OMP END DISTRIBUTE SIMD" } 14 15!$omp end DO ! { dg-error "Unexpected !.OMP END DO" } 16 17!$omp end DO SIMD ! { dg-error "Unexpected !.OMP END DO SIMD" } 18 19!$omp end LOOP ! { dg-error "Unexpected !.OMP END LOOP" } 20 21!$omp parallel loop 22do i = 1, 5 23end do 24!$omp end LOOP ! { dg-error "Unexpected !.OMP END LOOP" } 25 26!$omp end MASKED ! { dg-error "Unexpected !.OMP END MASKED" } 27 28!$omp end MASKED TASKLOOP ! { dg-error "Unexpected !.OMP END MASKED TASKLOOP" } 29 30!$omp end MASKED TASKLOOP SIMD ! { dg-error "Unexpected !.OMP END MASKED TASKLOOP SIMD" } 31 32!$omp end MASTER ! { dg-error "Unexpected !.OMP END MASTER" } 33 34!$omp end MASTER TASKLOOP ! { dg-error "Unexpected !.OMP END MASTER TASKLOOP" } 35 36!$omp end MASTER TASKLOOP SIMD ! { dg-error "Unexpected !.OMP END MASTER TASKLOOP SIMD" } 37 38!$omp end ORDERED ! { dg-error "Unexpected !.OMP END ORDERED" } 39 40!$omp end PARALLEL ! { dg-error "Unexpected !.OMP END PARALLEL" } 41 42!$omp end PARALLEL DO ! { dg-error "Unexpected !.OMP END PARALLEL DO" } 43 44!$omp end PARALLEL DO SIMD ! { dg-error "Unexpected !.OMP END PARALLEL DO SIMD" } 45 46!$omp loop 47!$omp end PARALLEL LOOP ! { dg-error "Unexpected !.OMP END PARALLEL LOOP" } 48 49!$omp end PARALLEL MASKED ! { dg-error "Unexpected !.OMP END PARALLEL MASKED" } 50 51!$omp end PARALLEL MASKED TASKLOOP ! { dg-error "Unexpected !.OMP END PARALLEL MASKED TASKLOOP" } 52 53!$omp end PARALLEL MASKED TASKLOOP SIMD ! { dg-error "Unexpected !.OMP END PARALLEL MASKED TASKLOOP SIMD" } 54 55!$omp end PARALLEL MASTER ! { dg-error "Unexpected !.OMP END PARALLEL MASTER" } 56 57!$omp end PARALLEL MASTER TASKLOOP ! { dg-error "Unexpected !.OMP END PARALLEL MASTER TASKLOOP" } 58 59!$omp end PARALLEL MASTER TASKLOOP SIMD ! { dg-error "Unexpected !.OMP END PARALLEL MASTER TASKLOOP SIMD" } 60 61!$omp end PARALLEL SECTIONS ! { dg-error "Unexpected !.OMP END PARALLEL SECTIONS" } 62 63!$omp end PARALLEL WORKSHARE ! { dg-error "Unexpected !.OMP END PARALLEL WORKSHARE" } 64 65!$omp end SCOPE ! { dg-error "Unexpected !.OMP END SCOPE" } 66 67!$omp end SECTIONS ! { dg-error "Unexpected !.OMP END SECTIONS" } 68 69!$omp end SIMD ! { dg-error "Unexpected !.OMP END SIMD" } 70 71!$omp end SINGLE ! { dg-error "Unexpected !.OMP END SINGLE" } 72 73!$omp end TARGET ! { dg-error "Unexpected !.OMP END TARGET" } 74 75!$omp end TARGET DATA ! { dg-error "Unexpected !.OMP END TARGET DATA" } 76 77!$omp end TARGET PARALLEL ! { dg-error "Unexpected !.OMP END TARGET PARALLEL" } 78 79!$omp end TARGET PARALLEL DO ! { dg-error "Unexpected !.OMP END TARGET PARALLEL DO" } 80 81!$omp end TARGET PARALLEL DO SIMD ! { dg-error "Unexpected !.OMP END TARGET PARALLEL DO SIMD" } 82 83!$omp end TARGET PARALLEL LOOP ! { dg-error "Unexpected !.OMP END TARGET PARALLEL LOOP" } 84 85!$omp end TARGET SIMD ! { dg-error "Unexpected !.OMP END TARGET SIMD" } 86 87!$omp end TARGET TEAMS ! { dg-error "Unexpected !.OMP END TARGET TEAMS" } 88 89!$omp end TARGET TEAMS DISTRIBUTE ! { dg-error "Unexpected !.OMP END TARGET TEAMS DISTRIBUTE" } 90 91!$omp end TARGET TEAMS DISTRIBUTE PARALLEL DO ! { dg-error "Unexpected !.OMP END TARGET TEAMS DISTRIBUTE PARALLEL DO" } 92 93!$omp end TARGET TEAMS DISTRIBUTE PARALLEL DO SIMD ! { dg-error "Unexpected !.OMP END TARGET TEAMS DISTRIBUTE PARALLEL DO SIMD" } 94 95!$omp end TARGET TEAMS DISTRIBUTE SIMD ! { dg-error "Unexpected !.OMP END TARGET TEAMS DISTRIBUTE SIMD" } 96 97!$omp end TARGET TEAMS LOOP ! { dg-error "Unexpected !.OMP END TARGET TEAMS LOOP" } 98 99!$omp end TASK ! { dg-error "Unexpected !.OMP END TASK" } 100 101!$omp end TASKGROUP ! { dg-error "Unexpected !.OMP END TASKGROUP" } 102 103!$omp end TASKLOOP ! { dg-error "Unexpected !.OMP END TASKLOOP" } 104 105!$omp end TASKLOOP SIMD ! { dg-error "Unexpected !.OMP END TASKLOOP SIMD" } 106 107!$omp end TEAMS ! { dg-error "Unexpected !.OMP END TEAMS" } 108 109!$omp end TEAMS DISTRIBUTE ! { dg-error "Unexpected !.OMP END TEAMS DISTRIBUTE" } 110 111!$omp end TEAMS DISTRIBUTE PARALLEL DO ! { dg-error "Unexpected !.OMP END TEAMS DISTRIBUTE PARALLEL DO" } 112 113!$omp end TEAMS DISTRIBUTE PARALLEL DO SIMD ! { dg-error "Unexpected !.OMP END TEAMS DISTRIBUTE PARALLEL DO SIMD" } 114 115!$omp end TEAMS DISTRIBUTE SIMD ! { dg-error "Unexpected !.OMP END TEAMS DISTRIBUTE SIMD" } 116 117!$omp end TEAMS LOOP ! { dg-error "Unexpected !.OMP END TEAMS LOOP" } 118 119!$omp end WORKSHARE ! { dg-error "Unexpected !.OMP END WORKSHARE" } 120 121end ! { dg-error "Unexpected END statement" } 122 123! { dg-error "Unexpected end of file" "" { target "*-*-*" } 0 } 124