[PATCH, gfortran] Cleanup the submodule tests

[Dominique d'Humières]

Hi!

Unless someone objects, I am planning to commit the following cleanup

--- ../_clean/gcc/testsuite/gfortran.dg/submodule_17.f08        2016-08-24 
21:57:16.000000000 +0200
+++ gcc/testsuite/gfortran.dg/submodule_17.f08  2017-04-15 10:19:32.000000000 
+0200
@@ -25,3 +25,4 @@ end submodule
   use hello_interface
   if (get() .ne. string) call abort
 end
+! { dg-final { cleanup-submodules "hello_interface@hello_implementation" } }
--- ../_clean/gcc/testsuite/gfortran.dg/submodule_22.f08        2016-11-27 
20:08:35.000000000 +0100
+++ gcc/testsuite/gfortran.dg/submodule_22.f08  2017-04-15 10:21:50.000000000 
+0200
@@ -45,3 +45,5 @@ contains
     s = 2.0
   end subroutine sub3
 end
+! { dg-final { cleanup-submodules "mtop@submod" } }
+! { dg-final { cleanup-submodules "mtop@subsubmod" } }
--- ../_clean/gcc/testsuite/gfortran.dg/submodule_23.f90        2017-02-19 
19:28:37.000000000 +0100
+++ gcc/testsuite/gfortran.dg/submodule_23.f90  2017-04-15 10:26:53.000000000 
+0200
@@ -27,3 +27,4 @@ end submodule
   use mod
   print *, fun1(10)
 end
+! { dg-final { cleanup-submodules "mod@submod" } }
--- ../_clean/gcc/testsuite/gfortran.dg/submodule_24.f08        2017-02-19 
22:13:44.000000000 +0100
+++ gcc/testsuite/gfortran.dg/submodule_24.f08  2017-04-15 10:11:15.000000000 
+0200
@@ -21,3 +21,4 @@ contains
     end procedure
    !end subroutine ! gfortran accepted this invalid workaround
 end submodule
+! { dg-final { cleanup-submodules "foo_interface@foo_implementation" } }
--- ../_clean/gcc/testsuite/gfortran.dg/submodule_26.f08        2017-03-18 
13:14:10.000000000 +0100
+++ gcc/testsuite/gfortran.dg/submodule_26.f08  2017-04-15 10:13:03.000000000 
+0200
@@ -44,3 +44,4 @@ contains
   module procedure cgca_clvgp
   end procedure cgca_clvgp
 end submodule m3clvg_sm3
+! { dg-final { cleanup-submodules "cgca_m3clvg@m3clvg_sm3" } }
--- ../_clean/gcc/testsuite/gfortran.dg/submodule_27.f08        2017-03-18 
13:14:10.000000000 +0100
+++ gcc/testsuite/gfortran.dg/submodule_27.f08  2017-04-15 10:13:35.000000000 
+0200
@@ -42,3 +42,4 @@ end submodule m3clvg_sm3
   call cgca_clvgp (hello)
   if (trim (greeting) .ne. "hello") call abort
 end
+! { dg-final { cleanup-submodules "cgca_m3clvg@m3clvg_sm3" } }
--- ../_clean/gcc/testsuite/gfortran.dg/submodule_28.f08        2017-03-18 
13:48:04.000000000 +0100
+++ gcc/testsuite/gfortran.dg/submodule_28.f08  2017-04-15 10:14:32.000000000 
+0200
@@ -50,3 +50,4 @@ program hello
   call routine1(2)
   if (answer .ne. 4) call abort
 end program
+! { dg-final { cleanup-submodules "my_mod@my_submod" } }

Dominique