| ! { dg-do run } | |
| ! { dg-options "-std=legacy" } | |
| ! | |
| ! Another case of fallout from the original patch for PR14771 | |
| ! Testcase by Erik Zeek | |
| module para | |
| contains | |
| function bobo(n) | |
| integer, intent(in) :: n | |
| character(len=(n)) :: bobo ! Used to fail here | |
| bobo = "1234567890" | |
| end function bobo | |
| end module para | |
| program test | |
| use para | |
| implicit none | |
| character*5 c | |
| c = bobo(5) | |
| if (c .ne. "12345") call abort | |
| end program test | |
| ! { dg-final { cleanup-modules "para" } } |