using GNU Fortran 95 (GCC) 4.1.0 20051126 (prerelease) with '-g -pedantic -std=f95', I get a bad / no diagnostic for the following invalid code:
MODULE M1 CONTAINS SUBROUTINE S1 CONTAINS CHARACTER(LEN=*) FUNCTION F1() F1="1234" END FUNCTION F1 END SUBROUTINE S1 END MODULE M1 END -- Summary: better diagnostic needed Product: gcc Version: 4.1.0 Status: UNCONFIRMED Severity: normal Priority: P3 Component: fortran AssignedTo: unassigned at gcc dot gnu dot org ReportedBy: jv244 at cam dot ac dot uk http://gcc.gnu.org/bugzilla/show_bug.cgi?id=25081