com.c (ffecom_decl_field): Use DECL_ALIGN for a FIELD_DECL.

	* com.c (ffecom_decl_field): Use DECL_ALIGN for a FIELD_DECL.
	(ffecom_init_0): Likewise.

From-SVN: r32790

gcc/f/ChangeLog

+2000-03-28  Franz Sirl  <Franz.Sirl-kernel@lauterbach.com>
+
+	* com.c (ffecom_decl_field): Use DECL_ALIGN for a FIELD_DECL.
+	(ffecom_init_0): Likewise.
+
 Sat Mar 25 09:12:10 2000  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
 
 	* com.c (ffecom_tree_canonize_ptr_): Use bitsize_zero_node.

gcc/f/com.c

@@ -11000,7 +11000,7 @@ ffecom_decl_field (tree context, tree prevfield,
 
   field = build_decl (FIELD_DECL, get_identifier (name), type);
   DECL_CONTEXT (field) = context;
-  DECL_FRAME_SIZE (field) = 0;
+  DECL_ALIGN (field) = 0;
   if (prevfield != NULL_TREE)
     TREE_CHAIN (prevfield) = field;
 
@@ -12056,7 +12056,7 @@ ffecom_init_0 ()
 						 ffecom_tree_type[i][j]);
 	DECL_CONTEXT (ffecom_multi_fields_[i][j])
 	  = ffecom_multi_type_node_;
-	DECL_FRAME_SIZE (ffecom_multi_fields_[i][j]) = 0;
+	DECL_ALIGN (ffecom_multi_fields_[i][j]) = 0;
 	TREE_CHAIN (ffecom_multi_fields_[i][j]) = field;
 	field = ffecom_multi_fields_[i][j];
       }