[Bug fortran/51522] ICE in gfortran 4.6.2, x86_64

["dominiq at lps dot ens.fr" <gcc-bugzilla@gcc.gnu.org>]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=51522

--- Comment #3 from Dominique d'Humieres <dominiq at lps dot ens.fr> 2012-01-09 13:38:38 UTC ---
With the following change

--- pr51522.f90    2011-12-13 00:17:20.000000000 +0100
+++ pr51522_db.f90    2012-01-09 12:15:44.000000000 +0100
@@ -265,9 +266,11 @@ interface
   integer(c_int) function vect_Utils_vuIsUnit_c(u, tol, exception) bind(c)
     use, intrinsic :: iso_c_binding
   end function vect_Utils_vuIsUnit_c
-  integer(c_int) function vect_Utils_vuTriIneqHolds_c(u, v, tol, exception)   
&
+  integer(c_int) function vect_Utils_vuTriIneqHolds_c(u, v, tol, exception)    
     use, intrinsic :: iso_c_binding
+  end function vect_Utils_vuTriIneqHolds_c
   real(c_double) function vect_Utils_vuNorm_c(u, tol, badLevel, exception)
bind(c)
+    use, intrinsic :: iso_c_binding
   end function vect_Utils_vuNorm_c
 end interface
 end module vect_Utils_F03

the code compiles (with a lot of warnings), but complains at link time:

Undefined symbols:
  "_main", referenced from:
      start in crt1.10.6.o
  "_vect_Utils_getEPV", referenced from:
      ___vect_utils_type_f03_MOD_cache_epv_s in ccxe8Zdc.o
ld: symbol(s) not found
collect2: error: ld returned 1 exit status