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