44subroutine vec_type_test (arg1 , arg2 , arg3 , arg4 )
55! ERROR: Assumed-shape entity of vector(real(4)) type is not supported
66 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
88 vector(unsigned) :: arg2(..)
99! ERROR: Deferred-shape entity of vector(integer(4)) type is not supported
1010 vector(integer ), allocatable :: arg3(:)
@@ -19,7 +19,7 @@ end subroutine vec_type_test
1919subroutine vec_pair_type_test (arg1 , arg2 , arg3 , arg4 )
2020! ERROR: Assumed-shape entity of __vector_pair type is not supported
2121 __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
2323 __vector_pair :: arg2(..)
2424! ERROR: Deferred-shape entity of __vector_pair type is not supported
2525 __vector_pair, allocatable :: arg3(:)
@@ -34,7 +34,7 @@ end subroutine vec_pair_type_test
3434subroutine vec_quad_type_test (arg1 , arg2 , arg3 , arg4 )
3535! ERROR: Assumed-shape entity of __vector_quad type is not supported
3636 __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
3838 __vector_quad :: arg2(..)
3939! ERROR: Deferred-shape entity of __vector_quad type is not supported
4040 __vector_quad, allocatable :: arg3(:)
0 commit comments