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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
! RUN: %S/test_errors.sh %s %t %flang_fc1
! REQUIRES: shell
subroutine s1(x, y)
!ERROR: Array pointer 'x' must have deferred shape or assumed rank
real, pointer :: x(1:) ! C832
!ERROR: Allocatable array 'y' must have deferred shape or assumed rank
real, dimension(1:,1:), allocatable :: y ! C832
end
subroutine s2(a, b, c)
real :: a(:,1:)
real :: b(10,*)
real :: c(..)
!ERROR: Array pointer 'd' must have deferred shape or assumed rank
real, pointer :: d(:,1:) ! C832
!ERROR: Allocatable array 'e' must have deferred shape or assumed rank
real, allocatable :: e(10,*) ! C832
!ERROR: Assumed-rank array 'f' must be a dummy argument
real, pointer :: f(..) ! C837
!ERROR: Assumed-shape array 'g' must be a dummy argument
real :: g(:,1:)
!ERROR: Assumed-size array 'h' must be a dummy argument
real :: h(10,*) ! C833
!ERROR: Assumed-rank array 'i' must be a dummy argument
real :: i(..) ! C837
end
subroutine s3(a, b)
real :: a(*)
!ERROR: Dummy array argument 'b' may not have implied shape
real :: b(*,*) ! C835, C836
!ERROR: Implied-shape array 'c' must be a named constant or a dummy argument
real :: c(*) ! C836
!ERROR: Named constant 'd' array must have constant or implied shape
integer, parameter :: d(:) = [1, 2, 3]
end
subroutine s4()
type :: t
integer, allocatable :: a(:)
!ERROR: Component array 'b' without ALLOCATABLE or POINTER attribute must have explicit shape
integer :: b(:) ! C749
real, dimension(1:10) :: c
!ERROR: Array pointer component 'd' must have deferred shape
real, pointer, dimension(1:10) :: d ! C745
end type
end
function f()
!ERROR: Array 'f' without ALLOCATABLE or POINTER attribute must have explicit shape
real, dimension(:) :: f ! C832
end
subroutine s5()
!ERROR: Allocatable array 'a' must have deferred shape or assumed rank
integer :: a(10), b(:)
allocatable :: a
allocatable :: b
end subroutine
subroutine s6()
!C835 An object whose array bounds are specified by an
! implied-shape-or-assumed-size-spec shall be a dummy data object or a named
! constant.
!
!C843 An entity with the INTENT attribute shall be a dummy data object or a
! dummy procedure pointer.
!
!C849 An entity with the OPTIONAL attribute shall be a dummy argument.
!ERROR: Implied-shape array 'local1' must be a named constant or a dummy argument
real, dimension (*) :: local1
!ERROR: INTENT attributes may apply only to a dummy argument
real, intent(in) :: local2
!ERROR: INTENT attributes may apply only to a dummy argument
procedure(), intent(in) :: p1
!ERROR: OPTIONAL attribute may apply only to a dummy argument
real, optional :: local3
!ERROR: OPTIONAL attribute may apply only to a dummy argument
procedure(), optional :: p2
end subroutine
|
