diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog
index ee1764d4ae31d618e20f863646f0a4044db46bdd..53bb8d23fa1524828354de5a5e1d5cac473cffce 100644
--- a/libgomp/ChangeLog
+++ b/libgomp/ChangeLog
@@ -1,3 +1,8 @@
+2020-04-29  Thomas Schwinge  <thomas@codesourcery.com>
+
+	* testsuite/libgomp.fortran/use_device_ptr-optional-2.f90: Add
+	'dg-do run'.
+
 2020-04-23  Andrew Stubbs  <ams@codesourcery.com>
 
 	PR other/94629
diff --git a/libgomp/testsuite/libgomp.fortran/use_device_ptr-optional-2.f90 b/libgomp/testsuite/libgomp.fortran/use_device_ptr-optional-2.f90
index 641ebd98962a6daf621750efd449ab79ecb0efe7..7a4aaae52cbd053692516bff219effe14d2f699d 100644
--- a/libgomp/testsuite/libgomp.fortran/use_device_ptr-optional-2.f90
+++ b/libgomp/testsuite/libgomp.fortran/use_device_ptr-optional-2.f90
@@ -1,3 +1,4 @@
+! { dg-do run }
 ! Check whether absent optional arguments are properly
 ! handled with use_device_{addr,ptr}.
 program main