diff options
Diffstat (limited to 'gcc/ada/i-fortra.adb')
| -rw-r--r-- | gcc/ada/i-fortra.adb | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/ada/i-fortra.adb b/gcc/ada/i-fortra.adb index 01f16ed3f80..5b37738fa5b 100644 --- a/gcc/ada/i-fortra.adb +++ b/gcc/ada/i-fortra.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -39,14 +39,14 @@ package body Interfaces.Fortran is -- Single character case - function To_Ada (Item : in Character_Set) return Character is + function To_Ada (Item : Character_Set) return Character is begin return Character (Item); end To_Ada; -- String case (function returning converted result) - function To_Ada (Item : in Fortran_Character) return String is + function To_Ada (Item : Fortran_Character) return String is T : String (1 .. Item'Length); begin @@ -60,7 +60,7 @@ package body Interfaces.Fortran is -- String case (procedure copying converted string to given buffer) procedure To_Ada - (Item : in Fortran_Character; + (Item : Fortran_Character; Target : out String; Last : out Natural) is @@ -93,14 +93,14 @@ package body Interfaces.Fortran is -- Character case - function To_Fortran (Item : in Character) return Character_Set is + function To_Fortran (Item : Character) return Character_Set is begin return Character_Set (Item); end To_Fortran; -- String case (function returning converted result) - function To_Fortran (Item : in String) return Fortran_Character is + function To_Fortran (Item : String) return Fortran_Character is T : Fortran_Character (1 .. Item'Length); begin @@ -114,7 +114,7 @@ package body Interfaces.Fortran is -- String case (procedure copying converted string to given buffer) procedure To_Fortran - (Item : in String; + (Item : String; Target : out Fortran_Character; Last : out Natural) is |
