[Bug fortran/30941] intrinsic: FLUSH

[dfranke at gcc dot gnu dot org]

------- Comment #1 from dfranke at gcc dot gnu dot org  2007-02-23 22:28 -------
libgfortran/io/intrinsics.c provides flush_i8, but that one is never used. 

INTEGER(kind=8) :: i8
CALL FLUSH(i8)

results in 

MAIN__ ()
{
  int8 int_8;

  _gfortran_set_std (70, 127, 0, 0);
  {
    int4 D.1001;

    D.1001 = (int4) int_8;
    _gfortran_flush_i4 (&D.1001);
  }
}


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=30941