BUG: Select Case Does Not Allow Character Expression String

MORE INFORMATION

Sample Code to Reproduce Problem

C Compile options needed: none
C The following program reproduces the problem:

      program go
      character*5 a
      integer*4 len
      a = "Hello"
      len = 1
      select case( a(len:len) )  ! offending statement
             case default
      end select
      end
				

Sample Code to Solve Problem

C Compile options needed: none
C The following code solves the problem:

      program go
      character*5 a
      a = "Hello"
      select case( a(1:1) )
             case default
      end select
      end
				

Sample Code to Solve Problem

C Compile options needed: none
C The following code solves the problem:

      program go
      character a*5,tmp*1
      integer*4 len
      a = "Hello"
      len = 1
      tmp=a(len:len)
      select case( tmp )
             case default
      end select
      end