Merge from mainline
[official-gcc.git] / gcc / testsuite / gfortran.dg / pr15140.f90
blob0f566dcd1d4160d7b0367be574e993420c1b9716
1 ! { dg-do run }
2 ! PR 15140: we used to fail an assertion, because we don't use the
3 ! argument of the subroutine directly, but instead use a copy of it.
4 function M(NAMES)
5 CHARACTER*(*) NAMES(*)
6 if (any(names(1:2).ne."asdfg")) call abort
7 m = LEN(NAMES(1))
8 END function M
10 character(5) :: c(2)
11 c = "asdfg"
12 if(m(c).ne.5) call abort()
13 end