370d34fe40
`-fd-lines-as-code` and `-fd-lines-as-comments` enables treatment for lines beginning with `d` or `D` in fixed form sources. Using these options in free form has no effect. If the `-fd-lines-as-code` option is given they are treated as if the first column contained a blank. If the `-fd-lines-as-comments` option is given, they are treated as comment lines.
30 lines
1.5 KiB
Fortran
30 lines
1.5 KiB
Fortran
! Ensure arguments -fd-lines-as-comments and -fd-lines-as-code as expected.
|
||
|
||
!--------------------------
|
||
! FLANG DRIVER (flang)
|
||
!--------------------------
|
||
! Default behavior is equivalent as -fd-lines-as-comments
|
||
!--------------------------
|
||
! RUN: %flang -fsyntax-only -ffixed-form %s 2>&1
|
||
! RUN: %flang -fsyntax-only -ffixed-form -fd-lines-as-comments %s 2>&1
|
||
! RUN: not %flang -fsyntax-only -ffixed-form -fd-lines-as-code %s 2>&1 | FileCheck %s --check-prefix=CODE
|
||
! RUN: not %flang -fsyntax-only -ffree-form -fd-lines-as-comments %s 2>&1 | FileCheck %s --check-prefix=WARNING-COMMENTS
|
||
! RUN: not %flang -fsyntax-only -ffree-form -fd-lines-as-code %s 2>&1 | FileCheck %s --check-prefix=WARNING-CODE
|
||
|
||
!----------------------------------------
|
||
! FRONTEND FLANG DRIVER (flang -fc1)
|
||
!----------------------------------------
|
||
! RUN: %flang_fc1 -fsyntax-only -ffixed-form %s 2>&1
|
||
! RUN: %flang_fc1 -fsyntax-only -ffixed-form -fd-lines-as-comments %s 2>&1
|
||
! RUN: not %flang_fc1 -fsyntax-only -ffixed-form -fd-lines-as-code %s 2>&1 | FileCheck %s --check-prefix=CODE
|
||
! RUN: not %flang_fc1 -fsyntax-only -ffree-form -fd-lines-as-comments %s 2>&1 | FileCheck %s --check-prefix=WARNING-COMMENTS
|
||
! RUN: not %flang_fc1 -fsyntax-only -ffree-form -fd-lines-as-code %s 2>&1 | FileCheck %s --check-prefix=WARNING-CODE
|
||
|
||
! CODE: Semantic errors
|
||
! WARNING-COMMENTS: warning: ‘-fd-lines-as-comments’ has no effect in free form.
|
||
! WARNING-CODE: warning: ‘-fd-lines-as-code’ has no effect in free form.
|
||
|
||
program FixedForm
|
||
d end
|
||
end
|