forked from OSchip/llvm-project
26 lines
1.1 KiB
Fortran
26 lines
1.1 KiB
Fortran
! Ensure arguments -ffree-form and -ffixed-form work as expected.
|
|
|
|
! REQUIRES: new-flang-driver
|
|
|
|
!--------------------------
|
|
! FLANG DRIVER (flang-new)
|
|
!--------------------------
|
|
! RUN: not %flang-new -fsyntax-only -ffree-form %S/Inputs/fixed-form-test.f 2>&1 | FileCheck %s --check-prefix=FREEFORM
|
|
! RUN: %flang-new -fsyntax-only -ffixed-form %S/Inputs/free-form-test.f90 2>&1 | FileCheck %s --check-prefix=FIXEDFORM
|
|
|
|
!----------------------------------------
|
|
! FRONTEND FLANG DRIVER (flang-new -fc1)
|
|
!----------------------------------------
|
|
! RUN: not %flang-new -fc1 -fsyntax-only -ffree-form %S/Inputs/fixed-form-test.f 2>&1 | FileCheck %s --check-prefix=FREEFORM
|
|
! RUN: %flang-new -fc1 -fsyntax-only -ffixed-form %S/Inputs/free-form-test.f90 2>&1 | FileCheck %s --check-prefix=FIXEDFORM
|
|
|
|
!------------------------------------
|
|
! EXPECTED OUTPUT FOR FREE FORM MODE
|
|
!------------------------------------
|
|
! FREEFORM:error: Could not parse
|
|
|
|
!-------------------------------------
|
|
! EXPECTED OUTPUT FOR FIXED FORM MODE
|
|
!-------------------------------------
|
|
! FIXEDFORM:free-form-test.f90:1:1: Character in fixed-form label field must be a digit
|