-fwarn-identities doesn't test for fromInteger and fromRational

testsuite/tests/ghc-regress/deSugar/should_compile/T4488.hs

@@ -10,18 +10,6 @@ ok1 x = fromIntegral x
 warn1 :: Int -> Int
 warn1 x = fromIntegral x
 
-ok2 :: Integer -> Float
-ok2 x = fromInteger x
-
-warn2 :: Integer -> Integer
-warn2 x = fromInteger x
-
--- ok3 :: Rational -> Float
-ok3 x = fromRational x
-
-warn3 :: Rational -> Rational
-warn3 x = fromRational x
-
 ok4 :: Int -> Integer
 ok4 x = toInteger x
 

testsuite/tests/ghc-regress/deSugar/should_compile/T4488.stderr

@@ -5,26 +5,16 @@ T4488.hs:11:11:
              (Use -fno-warn-identities to suppress this messsage))
 
 T4488.hs:17:11:
-    Warning: Call of fromInteger :: Integer -> Integer
-               can probably be omitted
-             (Use -fno-warn-identities to suppress this messsage))
-
-T4488.hs:23:11:
-    Warning: Call of fromRational :: Rational -> Rational
-               can probably be omitted
-             (Use -fno-warn-identities to suppress this messsage))
-
-T4488.hs:29:11:
     Warning: Call of toInteger :: Integer -> Integer
                can probably be omitted
              (Use -fno-warn-identities to suppress this messsage))
 
-T4488.hs:35:11:
+T4488.hs:23:11:
     Warning: Call of toRational :: Rational -> Rational
                can probably be omitted
              (Use -fno-warn-identities to suppress this messsage))
 
-T4488.hs:41:11:
+T4488.hs:29:11:
     Warning: Call of realToFrac :: Float -> Float
                can probably be omitted
              (Use -fno-warn-identities to suppress this messsage))