3 ! Tests the fix for PR82978 in which all the parameterized string
4 ! lengths with the same value of parameter 'k' had the same value
5 ! regardless of the value of 'l'. In this testcase, the length for
8 ! Contributed by Fritz Reese <foreese@gcc.gnu.org>
15 character(kind=k,len=l) :: chr
19 type(pdt_t(1, 4)) :: x1
20 type(pdt_t(1, 5)) :: x2
21 type(pdt_t(4, 5)) :: x3
26 ! Kind tests appear because of problem identified in comment #!
27 ! due to Dominque d'Humieres <dominiq@lps.ens.fr>
29 if (kind (x2%chr) .ne. 1) call abort
30 if (kind (x3%chr) .ne. 4) call abort
34 subroutine test (x, i)
35 type(pdt_t(1, *)) :: x
38 if (x%l .ne. i) call abort
39 if (len(x%chr) .ne. i) call abort
40 if (size(x%i,1) .ne. i) call abort