diff options
| author | Andre Vehreschild <vehre@gcc.gnu.org> | 2016-09-20 14:39:31 +0200 |
|---|---|---|
| committer | Andre Vehreschild <vehre@gcc.gnu.org> | 2016-09-20 14:39:31 +0200 |
| commit | 3aebb6ff7588a68535cbc3c865bb316d29932c7f (patch) | |
| tree | cde2dbccb90bd5acd2469f104aa8ebfbc5e37c70 /gcc | |
| parent | b5bbe47bb37addb3c5b6c6065a28fa44953ed351 (diff) | |
| download | gcc-3aebb6ff7588a68535cbc3c865bb316d29932c7f.zip gcc-3aebb6ff7588a68535cbc3c865bb316d29932c7f.tar.gz gcc-3aebb6ff7588a68535cbc3c865bb316d29932c7f.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/coarray_allocate_7.f08 | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 9588bed..dc99d91 100644 --- 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 cd9d8f2..918f3e2 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" } } |