diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/goacc/if.f95')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/goacc/if.f95 | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/testsuite/gfortran.dg/goacc/if.f95 b/gcc/testsuite/gfortran.dg/goacc/if.f95 index a45035d8230..35e9cfee134 100644 --- a/gcc/testsuite/gfortran.dg/goacc/if.f95 +++ b/gcc/testsuite/gfortran.dg/goacc/if.f95 @@ -6,7 +6,7 @@ program test logical :: x integer :: i - !$acc parallel if ! { dg-error "Unclassifiable OpenACC directive" } + !$acc parallel if ! { dg-error "Failed to match clause" } !$acc parallel if () ! { dg-error "Invalid character" } !$acc parallel if (i) ! { dg-error "scalar LOGICAL expression" } !$acc end parallel @@ -14,11 +14,11 @@ program test !$acc end parallel !$acc kernels if (i) ! { dg-error "scalar LOGICAL expression" } !$acc end kernels - !$acc kernels if ! { dg-error "Unclassifiable OpenACC directive" } + !$acc kernels if ! { dg-error "Failed to match clause" } !$acc kernels if () ! { dg-error "Invalid character" } !$acc kernels if (1) ! { dg-error "scalar LOGICAL expression" } !$acc end kernels - !$acc data if ! { dg-error "Unclassifiable OpenACC directive" } + !$acc data if ! { dg-error "Failed to match clause" } !$acc data if () ! { dg-error "Invalid character" } !$acc data if (i) ! { dg-error "scalar LOGICAL expression" } !$acc end data @@ -26,9 +26,9 @@ program test !$acc end data ! at most one if clause may appear - !$acc parallel if (.false.) if (.false.) { dg-error "Unclassifiable OpenACC directive" } - !$acc kernels if (.false.) if (.false.) { dg-error "Unclassifiable OpenACC directive" } - !$acc data if (.false.) if (.false.) { dg-error "Unclassifiable OpenACC directive" } + !$acc parallel if (.false.) if (.false.) { dg-error "Failed to match clause" } + !$acc kernels if (.false.) if (.false.) { dg-error "Failed to match clause" } + !$acc data if (.false.) if (.false.) { dg-error "Failed to match clause" } !$acc parallel if (x) !$acc end parallel @@ -49,4 +49,4 @@ program test !$acc data if (i.gt.1) !$acc end data -end program test
\ No newline at end of file +end program test |