blob: 251178a4dbd787918f97f0729677cb11ad036c23 (
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
|
! RUN: %S/test_errors.sh %s %t %flang_fc1
! C729 A derived type type-name shall not be DOUBLEPRECISION or the same as
! the name of any intrinsic type defined in this document.
subroutine s()
! This one's OK
type derived
end type
!ERROR: A derived type name cannot be the name of an intrinsic type
type integer
end type
!ERROR: A derived type name cannot be the name of an intrinsic type
type real
end type
!ERROR: A derived type name cannot be the name of an intrinsic type
type doubleprecision
end type
!ERROR: A derived type name cannot be the name of an intrinsic type
type complex
end type
!ERROR: A derived type name cannot be the name of an intrinsic type
type character
end type
!ERROR: A derived type name cannot be the name of an intrinsic type
type logical
end type
end subroutine s
|