coarray_allocate_7.f08: Using + instead of fixed number of digits expected.

2016-09-20  Andre Vehreschild  <vehre@gcc.gnu.org>

        * gfortran.dg/coarray_allocate_7.f08: Using + instead of fixed number
        of digits expected.

From-SVN: r240262

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 9588beddba047e0657024b951a5ffb55c401178d..dc99d913daafb599f402cb709bb46ef9734bdf01 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2016-09-20  Andre Vehreschild  <vehre@gcc.gnu.org>
+
+       * gfortran.dg/coarray_allocate_7.f08: Using + instead of fixed number
+       of digits expected.
+
 2016-09-20  Richard Biener  <rguenther@suse.de>
 
        PR tree-optimization/77646

diff --git a/gcc/testsuite/gfortran.dg/coarray_allocate_7.f08 b/gcc/testsuite/gfortran.dg/coarray_allocate_7.f08
index cd9d8f2ef3b014b6da9f839b28c58ad240174e9e..918f3e237f8281f13298ae30f4467473be35dcd7 100644 (file)
--- a/gcc/testsuite/gfortran.dg/coarray_allocate_7.f08
+++ b/gcc/testsuite/gfortran.dg/coarray_allocate_7.f08
@@ -22,6 +22,6 @@ program main
   if ( object%indices(1) /= 1 ) call abort()
 end program
 
-! { dg-final { scan-tree-dump-times "_gfortran_caf_register \\(D.\[0-9\]{4}, 1, &\\(\\(struct mytype\\) \\*object\\).indices.token, &\\(\\(struct mytype\\) \\*object\\).indices, 0B, 0B, 0\\);" 2 "original" } }
+! { dg-final { scan-tree-dump-times "_gfortran_caf_register \\(D.\[0-9\]+, 1, &\\(\\(struct mytype\\) \\*object\\).indices.token, &\\(\\(struct mytype\\) \\*object\\).indices, 0B, 0B, 0\\);" 2 "original" } }
 ! { dg-final { scan-tree-dump-times "_gfortran_caf_deregister \\(&\\(\\(struct mytype\\) \\*object\\).indices.token, 0B, 0B, 0\\);" 1 "original" } }