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)
48 ! { dg-final { cleanup-modules "ErrElmnt ErrorMod" } }