+
−! { dg-do run }
+
−! { dg-options "-std=gnu" }
+
−! PR fortran/46588
+
−! Original code contributed by Oleh Steblev <oleh dot steblev at gmail dot com>
+
−!
+
−! Issue appears to be fixed by PR 67805/68108
+
−function aufun(pm)
+
−   character(len = *) pm
+
−   character(len = *) aufun
+
−   character(len = len(aufun)) temp 
+
−   temp = pm 
+
−   aufun = 'Oh' // trim(temp)
+
−end function aufun
+
−
+
−program ds
+
−   implicit none
+
−   character(len = 4) :: ins = ' no!'
+
−   character(len = 20) st, aufun 
+
−   st = aufun(ins)
+
−   if (trim(st) /= 'Oh no!') STOP 1
+
−end