blob: e66ebdcda5356e3e3cc23a7f78792d4cf0400903 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
! { 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
|
