blob: c1902f31765b7d15bdc0410d505e46c808506444 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
! RUN: %S/test_errors.sh %s %t %flang_fc1
! 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.
! C1401 The program-name shall not be included in the end-program-stmt unless
! the optional program-stmt is used. If included, it shall be identical to the
! program-name specified in the program-stmt.
! C1402 If the module-name is specified in the end-module-stmt, it shall be
! identical to the module-name specified in the module-stmt.
! C1413 If a submodule-name appears in the end-submodule-stmt, it shall be
! identical to the one in the submodule-stmt.
! C1414 If a function-name appears in the end-function-stmt, it shall be
! identical to the function-name specified in the function-stmt.
! C1502 If the end-interface-stmt includes a generic-spec, the interface-stmt
! shall specify the same generic-spec
! C1564 If a function-name appears in the end-function-stmt, it shall be
! identical to the function-name specified in the function-stmt.
! C1567 If a submodule-name appears in the end-submodule-stmt, it shall be
! identical to the one in the submodule-stmt.
! C1569 If the module-name is specified in the end-module-stmt, it shall be
! identical to the module-name specified in the module-stmt
block data t1
!ERROR: BLOCK DATA subprogram name mismatch
end block data t2
function t3
!ERROR: FUNCTION name mismatch
end function t4
subroutine t9
!ERROR: SUBROUTINE name mismatch
end subroutine t10
program t13
!ERROR: END PROGRAM name mismatch
end program t14
submodule (mod) t15
!ERROR: SUBMODULE name mismatch
end submodule t16
module t5
interface t7
!ERROR: INTERFACE generic-name (t7) mismatch
end interface t8
type t17
!ERROR: derived type definition name mismatch
end type t18
abstract interface
subroutine subrFront()
!ERROR: SUBROUTINE name mismatch
end subroutine subrBack
function funcFront(x)
real, intent(in) :: x
real funcFront
!ERROR: FUNCTION name mismatch
end function funcBack
end interface
contains
module procedure t11
!ERROR: MODULE PROCEDURE name mismatch
end procedure t12
!ERROR: MODULE name mismatch
end module mox
|
GitWeb
