12 if (trim(t
) /= 'abc') call abort
17 if (trim(u
) /= 'abc') call abort
22 associate(v
=> s
// 'abc')
23 if (trim(v
) /= trim(a
)) call abort
28 associate(w
=> trim(s
) // 'abc')
29 if (trim(w
) /= trim(a
)) call abort
33 associate(x
=> trim('abc'))
34 if (trim(x
) /= 'abc') call abort