2 ! Test the fix for PR34231, in which the assumed size 'cnames'
3 ! would be wrongly associated with the scalar argument.
5 ! Contributed by <francois.jacq@irsn.fr>
9 TYPE odbase ; INTEGER :: value ; END TYPE
12 MODULE PROCEDURE odfamilycname,odfamilycnames
17 SUBROUTINE odfamilycnames(base,nfam,cnames)
18 TYPE(odbase),INTENT(in) :: base
19 INTEGER ,INTENT(out) :: nfam
20 CHARACTER(*),INTENT(out) :: cnames(*)
21 cnames(1:nfam)='odfamilycnames'
24 SUBROUTINE odfamilycname(base,pos,cname)
25 TYPE(odbase),INTENT(in) :: base
26 INTEGER ,INTENT(in) :: pos
27 CHARACTER(*),INTENT(out) :: cname
37 CHARACTER(14) :: cname
38 CHARACTER(14) :: cnames(1)
39 CALL odfname(base,i,cname)
40 if (trim (cname) .ne. "odfamilycname") call abort
41 CALL odfname(base,i,cnames)
42 if (trim (cnames(1)) .ne. "odfamilycnames") call abort