[Fortran, Patch, PR77872, v1] Fix ICE when getting caf-token from abstract class type.

[Steve Kargl]

On Mon, Mar 03, 2025 at 03:58:24PM +0100, Andre Vehreschild wrote:
> 
> attached patches fix a 12-regression, when a caf token is requested from an
> abstract class-typed dummy. The token was not looked up in the correct spot.
> Due the class typed object getting an artificial variable for direct derived
> type access, the get_caf_decl was looking at the wrong decl.
> 
> This patch consists of two parts, the first is just some code complexity
> reduction, where an existing attr is now used instead of checking for BT_CLASS
> type and branching.
> 
> Regtests ok on x86_64-pc-linux-gnu / F41. Ok for mainline?
> 

Thanks.  OK to commit.

-- 
steve