diff options
| author | Tobias Burnus <tobias@codesourcery.com> | 2019-10-31 15:56:42 +0000 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2019-10-31 16:56:42 +0100 |
| commit | 1a9e325fbfc9530a4414f9f9117b30b9cd8ad3c1 (patch) | |
| tree | a672cbf9d63bea7a356a9b8571ff6d6da7e720ae | |
| parent | b9ff4d7c489e2003dc1e2c7d5d6cf38a2a94c247 (diff) | |
| download | gcc-1a9e325fbfc9530a4414f9f9117b30b9cd8ad3c1.zip gcc-1a9e325fbfc9530a4414f9f9117b30b9cd8ad3c1.tar.gz gcc-1a9e325fbfc9530a4414f9f9117b30b9cd8ad3c1.tar.bz2 | |
Ensure that gfortran.dg/achar_2.f90 can fail
* gfortran.dg/achar_2.f90: Print 'DONE' and add dg-output.
From-SVN: r277674
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/achar_2.f90 | 6 |
2 files changed, 10 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 6caacc6..1b7137b 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2019-10-31 Tobias Burnus <tobias@codesourcery.com> + + * gfortran.dg/achar_2.f90: Print 'DONE' and add dg-output. + 2019-10-31 Andre Vieira <andre.simoesdiasvieira@arm.com> * gcc.target/aarch64/sve/reduc_strict_3.c: Fix option order. diff --git a/gcc/testsuite/gfortran.dg/achar_2.f90 b/gcc/testsuite/gfortran.dg/achar_2.f90 index 29cc3e7..2865037 100644 --- a/gcc/testsuite/gfortran.dg/achar_2.f90 +++ b/gcc/testsuite/gfortran.dg/achar_2.f90 @@ -1,6 +1,7 @@ ! { dg-do run } ! PR 30389 - we now treat ACHAR equivalent to CHAR (except for ! out of range-values) and IACHAR equivalent to ICHAR. +! { dg-output program main integer :: i character(len=1) :: c @@ -2023,4 +2024,9 @@ program main c = "ÿ" if (achar(i) /= "ÿ") STOP 1514 if (iachar(c) /= iachar("ÿ")) STOP 1515 + print *, 'DONE' end program main + +! DejaGNU only checks the exit code but 'STOP 256' has exit code 0. Hence, +! check output for: +! { dg-output "DONE" } |