From: Jakub Jelinek <jakub@redhat.com>
Date: Wed, 14 Feb 2018 12:12:15 +0000 (+0100)
Subject: re PR fortran/84313 ([F08] reject procedure pointers in COMMON blocks)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=d1fe6124618d472815cf46d9a8cf23e7d4a49cbe;p=gcc.git

re PR fortran/84313 ([F08] reject procedure pointers in COMMON blocks)

	PR fortran/84313
	* testsuite/libgomp.fortran/threadprivate4.f90: Add
	-std=f2003 -fall-intrinsics into dg-additional-options.

From-SVN: r257654
---

diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog
index a620923729b..c33919d64d1 100644
--- a/libgomp/ChangeLog
+++ b/libgomp/ChangeLog
@@ -1,3 +1,9 @@
+2018-02-14  Jakub Jelinek  <jakub@redhat.com>
+
+	PR fortran/84313
+	* testsuite/libgomp.fortran/threadprivate4.f90: Add
+	-std=f2003 -fall-intrinsics into dg-additional-options.
+
 2018-02-08  Martin Jambor  <mjambor@suse.cz>
 
 	* testsuite/libgomp.hsa.c/pr82416.c: Make the function with target
diff --git a/libgomp/testsuite/libgomp.fortran/threadprivate4.f90 b/libgomp/testsuite/libgomp.fortran/threadprivate4.f90
index b5fb10bfee7..c86cac72305 100644
--- a/libgomp/testsuite/libgomp.fortran/threadprivate4.f90
+++ b/libgomp/testsuite/libgomp.fortran/threadprivate4.f90
@@ -1,4 +1,5 @@
 ! { dg-do run }
+! { dg-additional-options "-std=f2003 -fall-intrinsics" }
 ! { dg-require-effective-target tls_runtime }
 
 module threadprivate4