https://gcc.gnu.org/bugzilla/show_bug.cgi?id=90937
--- Comment #3 from kargl at gcc dot gnu.org --- (In reply to kargl from comment #2) > Reduced testcase with whitespace and easy on the eyes lowercase font. > > subroutine lfidiff > > implicit none > > contains > > subroutine grlfi(cdnom) > > character(len=*) cdnom(:) > character(len=len(cdnom)) clnoma > > call lficas(clnoma) > > end subroutine grlfi > > end subroutine lfidiff Note, if the subroutine grlfi() is not a contained subprogram (ie, just a regular old subroutine), the code compiles.