| ! RUN: %S/test_any.sh %s %flang %t |
| ! EXEC: ${F18} -funparse-with-symbols %s 2>&1 | ${FileCheck} %s |
| ! CHECK: BLOCK DATA subprogram name mismatch |
| ! CHECK: should be |
| ! CHECK: FUNCTION name mismatch |
| ! CHECK: SUBROUTINE name mismatch |
| ! CHECK: PROGRAM name mismatch |
| ! CHECK: SUBMODULE name mismatch |
| ! CHECK: INTERFACE generic-name .t7. mismatch |
| ! CHECK: mismatched INTERFACE |
| ! CHECK: derived type definition name mismatch |
| ! CHECK: MODULE PROCEDURE name mismatch |
| ! CHECK: MODULE name mismatch |
| ! C739 If END TYPE is followed by a type-name, the type-name shall be the |
| ! same as that in the corresponding derived-type-stmt. |
| |
| block data t1 |
| end block data t2 |
| |
| function t3 |
| end function t4 |
| |
| subroutine t9 |
| end subroutine t10 |
| |
| program t13 |
| end program t14 |
| |
| submodule (mod) t15 |
| end submodule t16 |
| |
| module t5 |
| interface t7 |
| end interface t8 |
| type t17 |
| end type t18 |
| contains |
| module procedure t11 |
| end procedure t12 |
| end module mox |