23 lines · plain
1! Ensure argument -std=f2018 works as expected.2 3!-----------------------------------------4! FRONTEND FLANG DRIVER (flang -fc1)5!-----------------------------------------6! RUN: %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s --allow-empty --check-prefix=WITHOUT7! RUN: %flang_fc1 -fsyntax-only -std=f2018 %s 2>&1 | FileCheck %s --check-prefix=GIVEN8! RUN: %flang_fc1 -fsyntax-only -pedantic %s 2>&1 | FileCheck %s --check-prefix=GIVEN9 10! WITHOUT-NOT: A DO loop should terminate with an END DO or CONTINUE11 12! GIVEN: A DO loop should terminate with an END DO or CONTINUE13 14subroutine foo2()15 do 01 m=1,216 select case (m)17 case default18 print*, "default", m19 case (1)20 print*, "start"2101 end select22end subroutine23