From 3aebb6ff7588a68535cbc3c865bb316d29932c7f Mon Sep 17 00:00:00 2001 From: Andre Vehreschild Date: Tue, 20 Sep 2016 14:39:31 +0200 Subject: [PATCH] coarray_allocate_7.f08: Using + instead of fixed number of digits expected. 2016-09-20 Andre Vehreschild * gfortran.dg/coarray_allocate_7.f08: Using + instead of fixed number of digits expected. From-SVN: r240262 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/coarray_allocate_7.f08 | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 9588beddba0..dc99d913daa 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2016-09-20 Andre Vehreschild + + * gfortran.dg/coarray_allocate_7.f08: Using + instead of fixed number + of digits expected. + 2016-09-20 Richard Biener 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 cd9d8f2ef3b..918f3e237f8 100644 --- 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" } } -- 2.30.2