1! { dg-do compile }
2! { dg-options "-std=f2003" }
3!
4! PR fortran/34665
5!
6! Test argument checking
7!
8implicit none
9CONTAINS
10SUBROUTINE test2(a,b,c,d,e)
11 character(len=*), dimension(:) :: a
12 character(len=*), pointer, dimension(:) :: b
13 character(len=*), dimension(*) :: c
14 character(len=*), dimension(5) :: d
15 character(len=*)               :: e
16
17 call cas_size(e)
18 call cas_size("abc")
19 call cas_size(e//"a")
20 call cas_size(("abc"))
21 call cas_size(a(1))
22 call cas_size(b(1))
23 call cas_size((a(1)//"a"))
24 call cas_size((b(1)//"a"))
25 call cas_size((c(1)//"a"))
26 call cas_size((d(1)//"a"))
27 call cas_size(e(1:3))
28 call cas_size("abcd"(1:3))
29 call cas_size((e(1:3)))
30 call cas_size(("abcd"(1:3)//"a"))
31 call cas_size(e(1:3))
32 call cas_size("abcd"(1:3))
33 call cas_size((e(1:3)))
34 call cas_size(("abcd"(1:3)//"a"))
35 call cas_expl(e)
36 call cas_expl("abc")
37 call cas_expl(e//"a")
38 call cas_expl(("abc"))
39 call cas_expl(a(1))
40 call cas_expl(b(1))
41 call cas_expl((a(1)//"a"))
42 call cas_expl((b(1)//"a"))
43 call cas_expl((c(1)//"a"))
44 call cas_expl((d(1)//"a"))
45 call cas_expl(e(1:3))
46 call cas_expl("abcd"(1:3))
47 call cas_expl((e(1:3)))
48 call cas_expl(("abcd"(1:3)//"a"))
49END SUBROUTINE test2
50
51SUBROUTINE cas_size(a)
52 character(len=*), dimension(*) :: a
53END SUBROUTINE cas_size
54
55SUBROUTINE cas_expl(a)
56 character(len=*), dimension(5) :: a
57END SUBROUTINE cas_expl
58END
59
60