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