https://gcc.gnu.org/bugzilla/show_bug.cgi?id=78331
Bug ID: 78331
Summary: Misleading error message from submodule when module
has no module procedures.
Product: gcc
Version: 7.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: pault at gcc dot gnu.org
Target Milestone: ---
As noted in
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
produces the error message.
module.f90:5:24:
SUBMODULE (MainModule) MySub1
1
Fatal Error: Can't open module file ‘mainmodule.smod’ for reading at (1): No
such file or directory
compilation terminated.
This comes about because the submodule is expecting to find and .smod file,
which is only generated when there are module procedures in the parent module.
A bit of logic juggling in module.c should suppress the error.
Paul
