gcc/testsuite/gfortran.dg/pr85520.f90 - gcc - Git at Google

 ! { dg-do run }
 ! PR fortran/85520
 ! Original code from Gerhard Steinmetz <gscfq at t-online dot de>
 program p
    character(-huge(1)) :: c = ' '
     if (len(c) /= 0) stop 1
 end
	! { dg-do run }
	! PR fortran/85520
	! Original code from Gerhard Steinmetz <gscfq at t-online dot de>
	program p
	character(-huge(1)) :: c = ' '
	if (len(c) /= 0) stop 1
	end