mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
22 lines
598 B
Fortran
22 lines
598 B
Fortran
! { dg-do run }
|
|
! PR fortran/31188
|
|
program foo_mod
|
|
implicit none
|
|
character (len=1), parameter :: letters(2) = (/"a","b"/)
|
|
call concat(1, [1])
|
|
call concat(2, [2])
|
|
call concat(3, [1,2])
|
|
call concat(4, [2,1])
|
|
call concat(5, [2,2,2])
|
|
contains
|
|
subroutine concat(i, ivec)
|
|
integer, intent(in) :: i, ivec(:)
|
|
write (*,*) i, "a" // letters(ivec)
|
|
end subroutine concat
|
|
end program foo_mod
|
|
! { dg-output " *1 aa(\n|\r\n|\r)" }
|
|
! { dg-output " *2 ab(\n|\r\n|\r)" }
|
|
! { dg-output " *3 aaab(\n|\r\n|\r)" }
|
|
! { dg-output " *4 abaa(\n|\r\n|\r)" }
|
|
! { dg-output " *5 ababab(\n|\r\n|\r)" }
|