diff --git a/tests/test/units/convutils/tconv1.pp b/tests/test/units/convutils/tconv1.pp
index bcdb2fc25f..27fead26cd 100644
--- a/tests/test/units/convutils/tconv1.pp
+++ b/tests/test/units/convutils/tconv1.pp
@@ -332,27 +332,6 @@ begin
   if Verbose then writeln;
 end;
 
-procedure TestRegisterTypeTwice;
-var
-  Fam: TConvFamily;
-  base, foo: TConvType;
-  D, Exp: Double;
-begin
-  if Verbose then writeln({$I %CurrentRoutine%});
-  Fam := RegisterConversionFamily('TestRegisterTypeTwice');
-  base := RegisterConversionType(Fam, 'base', 1.0);
-  foo := RegisterConversionType(Fam, 'foo', 2.0);
-  foo := RegisterConversionType(Fam, 'bar', 100);
-  Exp := 0.01;
-  D := Convert(1.0, base, foo);
-  if Verbose then writeln('D=',D:10:4,' [Expected=0.0100]');   //uses last registered conversionfactor in both fpc and D7
-  if not SameValue(D, Exp, 1E-9) then
-    LogError({$I %CurrentRoutine%},  {$I %Line%},format('Unexpected value for D, Got %.4f, expected .4f',[D,0.01]));
-  if Verbose then writeln({$I %CurrentRoutine%},' end.');
-  if Verbose then writeln;
-end;
-
-
 procedure RegisterWithNegativeFactor;
 var
   Fam: TConvFamily;
@@ -599,7 +578,6 @@ begin
     TestIllegalConvTypeToFamily2;
     TestDuplicateConvFamilyDescription;
     TestDuplicateConvTypeDescriptions;
-    TestRegisterTypeTwice;
     RegisterWithNegativeFactor;
     TestNoDescription;
     TestCompatibleConversionType;