forked from OSchip/llvm-project
40 lines
880 B
Fortran
40 lines
880 B
Fortran
! RUN: not %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
|