1! { dg-do run } 2! { dg-options "-std=gnu" } 3! PR fortran/46588 4! Original code contributed by Oleh Steblev <oleh dot steblev at gmail dot com> 5! 6! Issue appears to be fixed by PR 67805/68108 7function aufun(pm) 8 character(len = *) pm 9 character(len = *) aufun 10 character(len = len(aufun)) temp 11 temp = pm 12 aufun = 'Oh' // trim(temp) 13end function aufun 14 15program ds 16 implicit none 17 character(len = 4) :: ins = ' no!' 18 character(len = 20) st, aufun 19 st = aufun(ins) 20 if (trim(st) /= 'Oh no!') STOP 1 21end 22