| ! { 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-error "does not contain a MODULE PROCEDURE" "" { target "*-*-*" } 0 } | |
| ! { dg-prune-output "compilation terminated" } |