------- Comment #9 from pault at gcc dot gnu dot org  2008-09-10 12:26 -------
(In reply to comment #3)
> reduced:
> 
> MODULE M1
>  INTERFACE putaline
>   MODULE PROCEDURE S1,S2
>  END INTERFACE
> CONTAINS
>  SUBROUTINE S1(I)
>  END SUBROUTINE
>  SUBROUTINE S2(F)
>  END SUBROUTINE
> END MODULE
> 
> MODULE M2
> USE M1
> CONTAINS
>  SUBROUTINE S3
>   CALL putaline()
>  CONTAINS
>   SUBROUTINE putaline(x)
>     character, optional :: x
>   END SUBROUTINE
>  END SUBROUTINE
> END MODULE
> 
> USE M2
> CALL S3
> END
> 

I believe that this is valid, as you say.

Paul


-- 


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

Reply via email to