testsuite, fortran: add required external keyword
authorNils-Christian Kempke <nils-christian.kempke@intel.com>
Tue, 31 May 2022 14:43:44 +0000 (16:43 +0200)
committerNils-Christian Kempke <nils-christian.kempke@intel.com>
Tue, 31 May 2022 14:44:55 +0000 (16:44 +0200)
Currenlty, ifx/ifort cannot compile the given executable as it is not
valid Fortran.  It is missing the external keyword on the
no_arg_subroutine.  Gfortran compiles the example but this is actually
a bug and there is an open gcc ticket for this here:

   https://gcc.gnu.org/bugzilla/show_bug.cgi?id=50377

Adding the keyword does not change the gfortran compiling of the example.
It will, however, prevent a future fail once 50377 has been addressed.

gdb/testsuite/gdb.fortran/function-calls.f90

index b56c5c97f7b8ffc8c58f396ef580da317aa9f329..e9c8c44afd11d951c9c255e7cad9b9425474140e 100644 (file)
@@ -198,6 +198,7 @@ program function_calls
     type(cart_nd) :: c_nd
     type(nested_cart_3d) :: nested_c
     character(40) :: returned_string, returned_string_debugger
+    external no_arg_subroutine
     real8 = 3.00
     real4 = 9.3
     integer_array = 17