diff --git a/gas/ChangeLog b/gas/ChangeLog
index 9b2a8eaa5a2..0386fd2633c 100644
--- a/gas/ChangeLog
+++ b/gas/ChangeLog
@@ -1,3 +1,7 @@
+Sat Aug 28 00:26:26 1999  Jerry Quinn <jquinn@nortelnetworks.com>
+
+	* config/tc-hppa.c (pa_ip):  Add case for 'I'.  
+
 1999-08-27  Jim Wilson  <wilson@cygnus.com>
 
 	* dwarf2dbg.c (MAX_SPECIAL_ADDR_DELTA): Correct typo in comment.
diff --git a/gas/config/tc-hppa.c b/gas/config/tc-hppa.c
index 99914db7dcd..39dee7cb01c 100644
--- a/gas/config/tc-hppa.c
+++ b/gas/config/tc-hppa.c
@@ -2546,6 +2546,12 @@ pa_ip (str)
 	      the_insn.fpof2 = flag;
 	      INSERT_FIELD_AND_CONTINUE (opcode, flag, 13);
 
+	    /* Handle a source FP operand format completer at 20.  */
+	    case 'I':
+	      flag = pa_parse_fp_format (&s);
+	      the_insn.fpof1 = flag;
+	      INSERT_FIELD_AND_CONTINUE (opcode, flag, 11);
+
 	    /* Handle L/R register halves like 't'.  */
 	    case 'v':
 	      {