3 ! PR 60777: [F03] RECURSIVE function rejected in specification expression
5 ! Contributed by Vladimir Fuka <vladimir.fuka@gmail.com>
11 pure
recursive function f(n
) result(answer
)
12 integer, intent(in
) :: n
22 integer,intent(in
) :: n
23 character(f(n
)) :: usef
24 usef
= repeat('*',f(n
))
31 if (usef(1) /= '*') call abort()
32 if (usef(2) /= '**') call abort()
33 if (usef(3) /= '******') call abort()