gcc/testsuite/gfortran.dg/pr95053.f - gcc - Git at Google

 ! { dg-do compile }
 ! PR fortran/95053 - ICE in gfc_divide(): Bad basic type
 !
  123  FORMAT ('A'/'B')
  132  FORMAT (A/
      +     ' B')
       END
	! { dg-do compile }
	! PR fortran/95053 - ICE in gfc_divide(): Bad basic type
	!
	123 FORMAT ('A'/'B')
	132 FORMAT (A/
	+ ' B')
	END