3 ! PR fortran/37445, in which the first version of the fix regressed on the
4 ! calls to GetBasicElementData; picking up the local GetBasicElementData instead.
6 ! Contributed by Norman S Clerman < clerman@fuse.net>
7 ! and reduced by Tobias Burnus <burnus@gcc.gnu.org>
13 end type TErrorElement
15 subroutine GetBasicData ( AnElement
, ProcedureName
, ErrorNumber
, &
16 Level
, Message
, ReturnStat
)
17 type (TErrorElement
) :: AnElement
18 character (*, 1), optional
:: &
20 integer (4), optional
:: ErrorNumber
21 character (*, 1), optional
:: Level
22 character (*, 1), optional
:: Message
23 integer (4), optional
:: ReturnStat
24 end subroutine GetBasicData
28 USE ErrElmnt
, only
: GetBasicElementData
=> GetBasicData
, TErrorElement
31 subroutine GetBasicData ()
32 integer (4) :: CallingStat
, LocalErrorNum
33 character (20, 1) :: LocalErrorMessage
34 character (20, 1) :: LocalProcName
35 character (20, 1) :: Locallevel
36 type (TErrorElement
) :: AnElement
37 call GetBasicElementData (AnElement
, LocalProcName
, LocalErrorNum
, LocalLevel
, LocalErrorMessage
, CallingStat
)
38 end subroutine GetBasicData
40 integer (4) :: ErrorNumber
, CallingStat
41 character (20, 1) :: ProcedureName
42 character (20, 1) :: ErrorLevel
43 character (20, 1) :: ErrorMessage
44 type (TErrorElement
) :: TargetElement
45 call GetBasicElementData (TargetElement
, ProcedureName
, ErrorNumber
, ErrorLevel
, ErrorMessage
, CallingStat
)