263 lines
1.5 KiB
Fortran
263 lines
1.5 KiB
Fortran
|
! 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
|