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