* f95-lang.c (gfc_init_decl_processing): use ptr_mode instead of Pmode.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@134533 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 3808eb5..1d9ca4d 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2008-04-21  Steve Ellcey  <sje@cup.hp.com>
+
+       * f95-lang.c (gfc_init_decl_processing): use ptr_mode instead of Pmode.
+
 2008-04-21  Daniel Franke  <franke.daniel@gmail.com>
 
        PR fortran/35019

diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c
index 4d2e978..58e3127 100644 (file)
--- a/gcc/fortran/f95-lang.c
+++ b/gcc/fortran/f95-lang.c
@@ -563,9 +563,9 @@ gfc_init_decl_processing (void)
   /* x86_64 minw32 has a sizetype of "unsigned long long", most other hosts
      have a sizetype of "unsigned long". Therefore choose the correct size
      in mostly target independent way.  */
-  if (TYPE_MODE (long_unsigned_type_node) == Pmode)
+  if (TYPE_MODE (long_unsigned_type_node) == ptr_mode)
     set_sizetype (long_unsigned_type_node);
-  else if (TYPE_MODE (long_long_unsigned_type_node) == Pmode)
+  else if (TYPE_MODE (long_long_unsigned_type_node) == ptr_mode)
     set_sizetype (long_long_unsigned_type_node);
   else
     set_sizetype (long_unsigned_type_node);