4
4
subroutine vec_type_test (arg1 , arg2 , arg3 , arg4 )
5
5
! ERROR: Assumed-shape entity of vector(real(4)) type is not supported
6
6
vector(real ) :: arg1(:)
7
- ! ERROR: Assumed Rank entity of vector(unsigned(4)) type is not supported
7
+ ! ERROR: Assumed rank entity of vector(unsigned(4)) type is not supported
8
8
vector(unsigned) :: arg2(..)
9
9
! ERROR: Deferred-shape entity of vector(integer(4)) type is not supported
10
10
vector(integer ), allocatable :: arg3(:)
@@ -19,7 +19,7 @@ end subroutine vec_type_test
19
19
subroutine vec_pair_type_test (arg1 , arg2 , arg3 , arg4 )
20
20
! ERROR: Assumed-shape entity of __vector_pair type is not supported
21
21
__vector_pair :: arg1(:)
22
- ! ERROR: Assumed Rank entity of __vector_pair type is not supported
22
+ ! ERROR: Assumed rank entity of __vector_pair type is not supported
23
23
__vector_pair :: arg2(..)
24
24
! ERROR: Deferred-shape entity of __vector_pair type is not supported
25
25
__vector_pair, allocatable :: arg3(:)
@@ -34,7 +34,7 @@ end subroutine vec_pair_type_test
34
34
subroutine vec_quad_type_test (arg1 , arg2 , arg3 , arg4 )
35
35
! ERROR: Assumed-shape entity of __vector_quad type is not supported
36
36
__vector_quad :: arg1(:)
37
- ! ERROR: Assumed Rank entity of __vector_quad type is not supported
37
+ ! ERROR: Assumed rank entity of __vector_quad type is not supported
38
38
__vector_quad :: arg2(..)
39
39
! ERROR: Deferred-shape entity of __vector_quad type is not supported
40
40
__vector_quad, allocatable :: arg3(:)
0 commit comments