1! { dg-do compile }
2! Test the fix for PR32157, in which overloading 'LEN', as
3! in 'test' below would cause a compile error.
4!
5! Contributed by Michael Richmond <michael.a.richmond@nasa.gov>
6!
7subroutine len(c)
8  implicit none
9  character :: c
10  c = "X"
11end subroutine len
12
13subroutine test()
14  implicit none
15  character :: str
16  external len
17  call len(str)
18  if(str /= "X") STOP 1
19end subroutine test
20
21PROGRAM VAL
22 implicit none
23 external test
24 intrinsic len
25 call test()
26 if(len(" ") /= 1) STOP 2
27END
28