Ensure that gfortran.dg/achar_2.f90 can fail

        * gfortran.dg/achar_2.f90: Print 'DONE' and add dg-output.

From-SVN: r277674

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 6caacc6b3a632b8b310e5fcb1040020bfebbe678..1b7137bea80a0c3b7b0e67c074c48b9cd239f8d4 100644 (file)
--- 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 29cc3e756f09f4d9dd316b9767f31839b6482763..2865037f442a1900bcc95db9f751eec1aa9b44e1 100644 (file)
--- 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" }