Index: flang/test/Semantics/canondo07.f90 =================================================================== --- flang/test/Semantics/canondo07.f90 +++ flang/test/Semantics/canondo07.f90 @@ -1,7 +1,7 @@ ! Error test -- DO loop uses obsolete loop termination statement ! See R1131 and C1131 -! RUN: %f18 -funparse-with-symbols -Mstandard %s 2>&1 | FileCheck %s +! RUN: %flang_fc1 -fdebug-unparse-with-symbols -pedantic %s 2>&1 | FileCheck %s ! CHECK: A DO loop should terminate with an END DO or CONTINUE program endDo Index: flang/test/Semantics/canondo08.f90 =================================================================== --- flang/test/Semantics/canondo08.f90 +++ flang/test/Semantics/canondo08.f90 @@ -2,10 +2,10 @@ ! See R1131 and C1133 ! By default, this is not an error and label do are rewritten to non-label do. -! A warning is generated with -Mstandard +! A warning is generated with -pedantic -! RUN: %f18 -funparse-with-symbols -Mstandard %s 2>%t.stderr | FileCheck %s +! RUN: %flang_fc1 -fdebug-unparse-with-symbols -pedantic %s 2>%t.stderr | FileCheck %s ! CHECK: end do Index: flang/test/Semantics/canondo09.f90 =================================================================== --- flang/test/Semantics/canondo09.f90 +++ flang/test/Semantics/canondo09.f90 @@ -2,10 +2,10 @@ ! See R1131 and C1133 ! By default, this is not an error and label do are rewritten to non-label do. -! A warning is generated with -Mstandard +! A warning is generated with -pedantic -! RUN: %f18 -funparse-with-symbols -Mstandard %s 2>%t.stderr | FileCheck %s +! RUN: %flang_fc1 -fdebug-unparse-with-symbols -pedantic %s 2>%t.stderr | FileCheck %s ! CHECK: end do Index: flang/test/Semantics/canondo10.f90 =================================================================== --- flang/test/Semantics/canondo10.f90 +++ flang/test/Semantics/canondo10.f90 @@ -2,10 +2,10 @@ ! See R1131 and C1133 ! By default, this is not an error and label do are rewritten to non-label do. -! A warning is generated with -Mstandard +! A warning is generated with -pedantic -! RUN: %f18 -funparse-with-symbols -Mstandard %s 2>%t.stderr | FileCheck %s +! RUN: %flang_fc1 -fdebug-unparse-with-symbols -pedantic %s 2>%t.stderr | FileCheck %s ! CHECK: end do Index: flang/test/Semantics/canondo11.f90 =================================================================== --- flang/test/Semantics/canondo11.f90 +++ flang/test/Semantics/canondo11.f90 @@ -2,10 +2,10 @@ ! See R1131 and C1133 ! By default, this is not an error and label do are rewritten to non-label do. -! A warning is generated with -Mstandard +! A warning is generated with -pedantic -! RUN: %f18 -funparse-with-symbols -Mstandard %s 2>%t.stderr | FileCheck %s +! RUN: %flang_fc1 -fdebug-unparse-with-symbols -pedantic %s 2>%t.stderr | FileCheck %s ! CHECK: end do Index: flang/test/Semantics/canondo12.f90 =================================================================== --- flang/test/Semantics/canondo12.f90 +++ flang/test/Semantics/canondo12.f90 @@ -2,9 +2,9 @@ ! See R1131 and C1133 ! By default, this is not an error and label do are rewritten to non-label do. -! A warning is generated with -Mstandard +! A warning is generated with -pedantic -! RUN: %f18 -funparse-with-symbols -Mstandard %s 2>%t.stderr | FileCheck %s +! RUN: %flang_fc1 -fdebug-unparse-with-symbols -pedantic %s 2>%t.stderr | FileCheck %s ! CHECK: end do Index: flang/test/Semantics/canondo13.f90 =================================================================== --- flang/test/Semantics/canondo13.f90 +++ flang/test/Semantics/canondo13.f90 @@ -2,9 +2,9 @@ ! See R1131 and C1133 ! By default, this is not an error and label do are rewritten to non-label do. -! A warning is generated with -Mstandard +! A warning is generated with -pedantic -! RUN: %f18 -funparse-with-symbols -Mstandard %s 2>%t.stderr | FileCheck %s +! RUN: %flang_fc1 -fdebug-unparse-with-symbols -pedantic %s 2>%t.stderr | FileCheck %s ! CHECK: end do Index: flang/test/Semantics/canondo14.f90 =================================================================== --- flang/test/Semantics/canondo14.f90 +++ flang/test/Semantics/canondo14.f90 @@ -2,9 +2,9 @@ ! See R1131 and C1133 ! By default, this is not an error and label do are rewritten to non-label do. -! A warning is generated with -Mstandard +! A warning is generated with -pedantic -! RUN: %f18 -funparse-with-symbols -Mstandard %s 2>%t.stderr | FileCheck %s +! RUN: %flang_fc1 -fdebug-unparse-with-symbols -pedantic %s 2>%t.stderr | FileCheck %s ! CHECK: end do Index: flang/test/Semantics/canondo15.f90 =================================================================== --- flang/test/Semantics/canondo15.f90 +++ flang/test/Semantics/canondo15.f90 @@ -2,9 +2,9 @@ ! See R1131 and C1133 ! By default, this is not an error and label do are rewritten to non-label do. -! A warning is generated with -Mstandard +! A warning is generated with -pedantic -! RUN: %f18 -funparse-with-symbols -Mstandard %s 2>%t.stderr | FileCheck %s +! RUN: %flang_fc1 -fdebug-unparse-with-symbols -pedantic %s 2>%t.stderr | FileCheck %s ! CHECK: end do Index: flang/test/Semantics/canondo16.f90 =================================================================== --- flang/test/Semantics/canondo16.f90 +++ flang/test/Semantics/canondo16.f90 @@ -2,9 +2,9 @@ ! See R1131 and C1133 ! By default, this is not an error and label do are rewritten to non-label do. -! A warning is generated with -Mstandard +! A warning is generated with -pedantic -! RUN: %f18 -funparse-with-symbols -Mstandard %s 2>%t.stderr | FileCheck %s +! RUN: %flang_fc1 -fdebug-unparse-with-symbols -pedantic %s 2>%t.stderr | FileCheck %s ! CHECK: end do Index: flang/test/Semantics/canondo17.f90 =================================================================== --- flang/test/Semantics/canondo17.f90 +++ flang/test/Semantics/canondo17.f90 @@ -2,9 +2,9 @@ ! See R1131 and C1133 ! By default, this is not an error and label do are rewritten to non-label do. -! A warning is generated with -Mstandard +! A warning is generated with -pedantic -! RUN: %f18 -funparse-with-symbols -Mstandard %s 2>%t.stderr | FileCheck %s +! RUN: %flang_fc1 -fdebug-unparse-with-symbols -pedantic %s 2>%t.stderr | FileCheck %s ! CHECK: end do Index: flang/test/Semantics/canondo18.f90 =================================================================== --- flang/test/Semantics/canondo18.f90 +++ flang/test/Semantics/canondo18.f90 @@ -2,9 +2,9 @@ ! See R1131 and C1133 ! By default, this is not an error and label do are rewritten to non-label do. -! A warning is generated with -Mstandard +! A warning is generated with -pedantic -! RUN: %f18 -funparse-with-symbols -Mstandard %s 2>%t.stderr | FileCheck %s +! RUN: %flang_fc1 -fdebug-unparse-with-symbols -pedantic %s 2>%t.stderr | FileCheck %s ! CHECK: end do Index: flang/test/Semantics/canondo19.f90 =================================================================== --- flang/test/Semantics/canondo19.f90 +++ flang/test/Semantics/canondo19.f90 @@ -1,7 +1,7 @@ ! Check that if there is a label or a name on an label-do-stmt, ! then it is not lost when rewriting it to an non-label-do-stmt. -! RUN: %f18 -funparse-with-symbols -Mstandard %s 2>&1 | FileCheck %s +! RUN: %flang_fc1 -fdebug-unparse-with-symbols -pedantic %s 2>&1 | FileCheck %s ! CHECK: end do ! CHECK: 2 do Index: flang/test/Semantics/dosemantics03.f90 =================================================================== --- flang/test/Semantics/dosemantics03.f90 +++ flang/test/Semantics/dosemantics03.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 -Mstandard -Werror +! RUN: %S/test_errors.sh %s %t %flang_fc1 -pedantic -Werror ! Issue 458 -- semantic checks for a normal DO loop. The DO variable ! and the initial, final, and step expressions must be INTEGER if the Index: flang/test/Semantics/io10.f90 =================================================================== --- flang/test/Semantics/io10.f90 +++ flang/test/Semantics/io10.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 -Mstandard +! RUN: %S/test_errors.sh %s %t %flang_fc1 -pedantic write(*, '(B0)') write(*, '(B3)') Index: flang/test/Semantics/label01.F90 =================================================================== --- flang/test/Semantics/label01.F90 +++ flang/test/Semantics/label01.F90 @@ -1,5 +1,5 @@ -! RUN: %f18 -funparse-with-symbols -DSTRICT_F18 -Mstandard %s 2>&1 | FileCheck %s -! RUN: %f18 -funparse-with-symbols -DARCHAIC_FORTRAN %s 2>&1 | FileCheck %s +! RUN: %flang_fc1 -fdebug-unparse-with-symbols -DSTRICT_F18 -pedantic %s 2>&1 | FileCheck %s +! RUN: %flang_fc1 -fdebug-unparse-with-symbols -DARCHAIC_FORTRAN %s 2>&1 | FileCheck %s ! CHECK-NOT: :{{[[:space:]]}}error:{{[[:space:]]}} ! FIXME: the above check line does not work because diags are not emitted with error: in them. @@ -122,7 +122,7 @@ goto 400 200 print *, "found the index", j print *, "value at", j, "is", a(j) - goto 300 ! FIXME: emits diagnostic even without -Mstandard + goto 300 ! FIXME: emits diagnostic even without -pedantic 400 do 100 i = 1, n if (i .eq. j) then goto 200 ! extension: extended GOTO ranges Index: flang/test/Semantics/resolve103.f90 =================================================================== --- flang/test/Semantics/resolve103.f90 +++ flang/test/Semantics/resolve103.f90 @@ -1,4 +1,4 @@ -! RUN: not %f18 -Mstandard %s 2>&1 | FileCheck %s +! RUN: not %flang_fc1 -pedantic %s 2>&1 | FileCheck %s ! Test extension: allow forward references to dummy arguments ! from specification expressions in scopes with IMPLICIT NONE(TYPE), ! as long as those symbols are eventually typed later with the @@ -20,7 +20,7 @@ end !CHECK: Dummy argument 'n3' was used without being explicitly typed -!CHECK-NOT: error: +!CHECK-NOT: error: Dummy argument 'n3' subroutine foo3(a, n3) implicit none real a(n3)