From a1268ee16df5dc393f29b5291b4dff78f698e76d Mon Sep 17 00:00:00 2001 From: vehre Date: Tue, 20 Sep 2016 12:39:31 +0000 Subject: [PATCH] 2016-09-20 Andre Vehreschild * gfortran.dg/coarray_allocate_7.f08: Using + instead of fixed number of digits expected. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@240262 138bc75d-0d04-0410-961f-82ee72b054a4 --- 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.11.4.GIT