http://gcc.gnu.org/bugzilla/show_bug.cgi?id=53685
--- Comment #3 from Tobias Burnus <burnus at gcc dot gnu.org> 2012-06-16 10:50:48 UTC --- That patch of comment 2 fails for: testsuite/gfortran.dg/string_3.f90:16.15: print *, len(s(2_8**32_8+3_8:1)) 1 Error: Result of LEN overflows its kind at (1) It also fails for "if (len(t(8:4)) /= 0) call abort" in gfortran.dg/substr_2.f. And for gfortran.dg/widechar_IO_4.f90 (rt, line 16), gfortran.dg/widechar_compare_1.f90 (line 9), and gfortran.dg/widechar_intrinsics_8.f90 (line 24).