! { dg-do compile } | |
! | |
! Test the fix for PR78331. | |
! | |
! Reported on https://groups.google.com/forum/#!topic/comp.lang.fortran/NFCF9brKksg | |
! | |
MODULE MainModule | |
END MODULE MainModule | |
SUBMODULE (MainModule) MySub1 | |
IMPLICIT NONE | |
INTEGER, PARAMETER :: a = 17 | |
END SUBMODULE MySub1 | |
PROGRAM MyProg | |
USE MainModule | |
WRITE(*,*) a | |
END PROGRAM MyProg | |
! { dg-excess-errors "does not contain a MODULE PROCEDURE" } |