[binutils-gdb] testsuite, fortran: add required external keyword

[binutils-gdb] testsuite, fortran: add required external keyword

[Nils-Christian Kempke]

https://sourceware.org/git/gitweb.cgi?p=binutils-gdb.git;h=93bbd6c793f028afde22d6a6ad52edd812be8160

commit 93bbd6c793f028afde22d6a6ad52edd812be8160
Author: Nils-Christian Kempke <nils-christian.kempke@intel.com>
Date:   Tue May 31 16:43:44 2022 +0200

    testsuite, fortran: add required external keyword
    
    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.

Diff:
---
 gdb/testsuite/gdb.fortran/function-calls.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/gdb/testsuite/gdb.fortran/function-calls.f90 b/gdb/testsuite/gdb.fortran/function-calls.f90
index b56c5c97f7b..e9c8c44afd1 100644
--- a/gdb/testsuite/gdb.fortran/function-calls.f90
+++ b/gdb/testsuite/gdb.fortran/function-calls.f90
@@ -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