81 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! C739 If END TYPE is followed by a type-name, the type-name shall be the3! same as that in the corresponding derived-type-stmt.4! C1401 The program-name shall not be included in the end-program-stmt unless5! the optional program-stmt is used. If included, it shall be identical to the6! program-name specified in the program-stmt.7! C1402 If the module-name is specified in the end-module-stmt, it shall be8! identical to the module-name specified in the module-stmt.9! C1413 If a submodule-name appears in the end-submodule-stmt, it shall be10! identical to the one in the submodule-stmt.11! C1414 If a function-name appears in the end-function-stmt, it shall be12! identical to the function-name specified in the function-stmt.13! C1502 If the end-interface-stmt includes a generic-spec, the interface-stmt14! shall specify the same generic-spec15! C1564 If a function-name appears in the end-function-stmt, it shall be16! identical to the function-name specified in the function-stmt.17! C1567 If a submodule-name appears in the end-submodule-stmt, it shall be18! identical to the one in the submodule-stmt.19! C1569 If the module-name is specified in the end-module-stmt, it shall be20! identical to the module-name specified in the module-stmt21 22block data t123!ERROR: BLOCK DATA subprogram name mismatch24end block data t225 26function t327!ERROR: FUNCTION name mismatch28end function t429 30subroutine t931!ERROR: SUBROUTINE name mismatch32end subroutine t1033 34program t1335!ERROR: END PROGRAM name mismatch36end program t1437 38submodule (mod) t1539!ERROR: SUBMODULE name mismatch40end submodule t1641 42module t543 interface t744 !ERROR: END INTERFACE generic name (t8) does not match generic INTERFACE (t7)45 end interface t846 abstract interface47 !ERROR: END INTERFACE generic name (t19) may not appear for ABSTRACT INTERFACE48 end interface t1949 interface50 !ERROR: END INTERFACE generic name (t20) may not appear for non-generic INTERFACE51 end interface t2052 interface53 !ERROR: END INTERFACE generic name (assignment(=)) may not appear for non-generic INTERFACE54 end interface assignment(=)55 interface operator(<)56 end interface operator(.LT.) ! not an error57 interface operator(.EQ.)58 end interface operator(==) ! not an error59 60 type t1761 !ERROR: derived type definition name mismatch62 end type t1863 64 abstract interface65 subroutine subrFront()66 !ERROR: SUBROUTINE name mismatch67 end subroutine subrBack68 function funcFront(x)69 real, intent(in) :: x70 real funcFront71 !ERROR: FUNCTION name mismatch72 end function funcBack73 end interface74 75contains76 module procedure t1177 !ERROR: MODULE PROCEDURE name mismatch78 end procedure t1279!ERROR: MODULE name mismatch80end module mox81