14c7ebf79SArnamoy Bhattacharyya! Ensure argument -std=f2018 works as expected. 24c7ebf79SArnamoy Bhattacharyya 34c7ebf79SArnamoy Bhattacharyya!----------------------------------------- 4*06eb10daSBrad Richardson! FRONTEND FLANG DRIVER (flang -fc1) 54c7ebf79SArnamoy Bhattacharyya!----------------------------------------- 64c7ebf79SArnamoy Bhattacharyya! RUN: %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s --allow-empty --check-prefix=WITHOUT 74c7ebf79SArnamoy Bhattacharyya! RUN: %flang_fc1 -fsyntax-only -std=f2018 %s 2>&1 | FileCheck %s --check-prefix=GIVEN 84c7ebf79SArnamoy Bhattacharyya! RUN: %flang_fc1 -fsyntax-only -pedantic %s 2>&1 | FileCheck %s --check-prefix=GIVEN 94c7ebf79SArnamoy Bhattacharyya 104c7ebf79SArnamoy Bhattacharyya! WITHOUT-NOT: A DO loop should terminate with an END DO or CONTINUE 114c7ebf79SArnamoy Bhattacharyya 124c7ebf79SArnamoy Bhattacharyya! GIVEN: A DO loop should terminate with an END DO or CONTINUE 134c7ebf79SArnamoy Bhattacharyya 144c7ebf79SArnamoy Bhattacharyyasubroutine foo2() 154c7ebf79SArnamoy Bhattacharyya do 01 m=1,2 164c7ebf79SArnamoy Bhattacharyya select case (m) 174c7ebf79SArnamoy Bhattacharyya case default 184c7ebf79SArnamoy Bhattacharyya print*, "default", m 194c7ebf79SArnamoy Bhattacharyya case (1) 204c7ebf79SArnamoy Bhattacharyya print*, "start" 214c7ebf79SArnamoy Bhattacharyya01 end select 224c7ebf79SArnamoy Bhattacharyyaend subroutine 23