diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/goacc/loop-7.f95')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/goacc/loop-7.f95 | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/gcc/testsuite/gfortran.dg/goacc/loop-7.f95 b/gcc/testsuite/gfortran.dg/goacc/loop-7.f95 index 9ca8297d81a..37d50d3b82b 100644 --- a/gcc/testsuite/gfortran.dg/goacc/loop-7.f95 +++ b/gcc/testsuite/gfortran.dg/goacc/loop-7.f95 @@ -30,13 +30,13 @@ program test !$acc loop gang(num:num, static:1) DO i = 1,10 ENDDO - !$acc loop gang(static:*, num:5, static:5) ! { dg-error "Unclassifiable OpenACC directive" } + !$acc loop gang(static:*, num:5, static:5) ! { dg-error "Failed to match clause" } DO i = 1,10 ENDDO - !$acc loop gang(1, num:2, static:3) ! { dg-error "Unclassifiable OpenACC directive" } + !$acc loop gang(1, num:2, static:3) ! { dg-error "Failed to match clause" } DO i = 1,10 ENDDO - !$acc loop gang(num:num static:1) ! { dg-error "Unclassifiable OpenACC directive" } + !$acc loop gang(num:num static:1) ! { dg-error "Failed to match clause" } DO i = 1,10 ENDDO !$acc loop gang(num) @@ -45,7 +45,7 @@ program test !$acc loop gang(num:num+1, static:1+num) DO i = 1,10 ENDDO - !$acc loop gang(length:num) ! { dg-error "Unclassifiable OpenACC directive" } + !$acc loop gang(length:num) ! { dg-error "Failed to match clause" } DO i = 1,10 ENDDO @@ -58,19 +58,19 @@ program test !$acc loop worker (num) DO i = 1,10 ENDDO - !$acc loop worker (static:num) ! { dg-error "Unclassifiable OpenACC directive" } + !$acc loop worker (static:num) ! { dg-error "Failed to match clause" } DO i = 1,10 ENDDO !$acc loop worker (num:,) ! { dg-error "Invalid character" } DO i = 1,10 ENDDO - !$acc loop worker (num:num:num) ! { dg-error "Unclassifiable OpenACC directive" } + !$acc loop worker (num:num:num) ! { dg-error "Failed to match clause" } DO i = 1,10 ENDDO !$acc loop worker (num:num*num) DO i = 1,10 ENDDO - !$acc loop worker (length:num*num) ! { dg-error "Unclassifiable OpenACC directive" } + !$acc loop worker (length:num*num) ! { dg-error "Failed to match clause" } DO i = 1,10 ENDDO !$acc loop worker (num:*) ! { dg-error "Invalid character" } @@ -89,13 +89,13 @@ program test !$acc loop vector (length) DO i = 1,10 ENDDO - !$acc loop vrctor (static:num) ! { dg-error "Unclassifiable OpenACC directive" } + !$acc loop vrctor (static:num) ! { dg-error "Failed to match clause" } DO i = 1,10 ENDDO !$acc loop vector (length:,) ! { dg-error "Invalid character" } DO i = 1,10 ENDDO - !$acc loop vector (length:num:num) ! { dg-error "Unclassifiable OpenACC directive" } + !$acc loop vector (length:num:num) ! { dg-error "Failed to match clause" } DO i = 1,10 ENDDO !$acc loop vector (length:static*num) @@ -107,7 +107,7 @@ program test !$acc loop vector (length:32) DO i = 1,10 ENDDO - !$acc loop vector (num:num*num) ! { dg-error "Unclassifiable OpenACC directive" } + !$acc loop vector (num:num*num) ! { dg-error "Failed to match clause" } DO i = 1,10 ENDDO !$acc loop vector (length:*) ! { dg-error "Invalid character" } |