--* -- -- OBJECTIVE: -- Check that Ada.Numerics.Complex_Types and -- Ada.Numerics.Complex_Elementary_Functions are declared pure. (Defect -- Report 8652/0020). -- -- CHANGE HISTORY: -- 25 JAN 2001 PHL Initial version -- --! with Cxg1125B_0; with Report; use Report; procedure Cxg1125B is begin Test ("CXG1125B", "CHECK THAT ADA.NUMERICS.COMPLEX_TYPES AND " & "ADA.NUMERICS.COMPLEX_ELEMENTARY_FUNCTIONS ARE DECLARED PURE"); Result; end Cxg1125B; with Ada.Numerics.Complex_Types; with Ada.Numerics.Complex_Elementary_Functions; package Cxg1125B_0 is pragma Pure; end Cxg1125B_0;