pr85520.f90 « gfortran.dg « testsuite « gcc - maxim-kuvyrkov/gcc-pretty.git - [no description]

index : maxim-kuvyrkov/gcc-pretty.git

[no description]

about summary refs log tree commit diff

path: root/gcc/testsuite/gfortran.dg/pr85520.f90

blob: 3e66a9020f8de016e50534be6929a6b5f805735c (plain)

! { 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