! { dg-do preprocess }
! { dg-additional-options "-cpp" }
!
! Test the fix for PR86248
!
! Contributed by Bill Long  <longb@cray.com>
!
program test
  use test_module
  implicit none
  integer :: i
  character(:), allocatable :: chr
  do i = 0, 2
    chr = func_1 (i)
    select case (i)
      case (0)
        if (chr .ne. 'el0') stop i
      case (1)
        if (chr .ne. 'el11') stop i
      case (2)
        if (chr .ne. 'el2') stop i
    end select
  end do
end program test