X-Git-Url: http://bilbo.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/e709643ef0c5b61c6c878016c418bffa2b1b20cd..596e36117322c22fd31372e7803bc197bcd4a016:/teshsuite/smpi/fort_args/fort_args.f90

diff --git a/teshsuite/smpi/fort_args/fort_args.f90 b/teshsuite/smpi/fort_args/fort_args.f90
index dfd53083b5..11c94dc993 100644
--- a/teshsuite/smpi/fort_args/fort_args.f90
+++ b/teshsuite/smpi/fort_args/fort_args.f90
@@ -1,3 +1,8 @@
+! Copyright (c) 2018-2023. The SimGrid Team. All rights reserved.
+
+! This program is free software; you can redistribute it and/or modify it
+! under the terms of the license (GNU LGPL) which comes with this package.
+
 ! Check that getarg does something sensible.
 program getarg_1
   use mpi
@@ -8,7 +13,7 @@ program getarg_1
   I = 0
   call MPI_Init(ierr)
   CALL GETARG(I,ARGS)
-  ! This should return the invoking command.  The actual value depends 
+  ! This should return the invoking command.  The actual value depends
   ! on the OS, but a blank string is wrong no matter what.
   ! ??? What about deep embedded systems?
   if (args.eq.'') STOP 2