! RUN: %flang_fc1 -fdebug-unparse -pedantic %s 2>&1 | FileCheck %s ! CHECK: portability: 256 continuation lines is more than the Fortran standard allows ! CHECK: LOGICAL, PARAMETER :: c255 = .true._4 program test logical, parameter :: c255 = 255 == len("& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &a& &") end