Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!pacific.mps.ohio-state.edu!linac!att!pacbell.com!ucsd!hub.ucsb.edu!appmag!pa
From: pa@appmag.com (Pierre Asselin)
Newsgroups: comp.lang.fortran
Subject: Cheating on the types
Message-ID: <1991Mar20.195732.15376@appmag.com>
Date: 20 Mar 91 19:57:32 GMT
Organization: R&D, Applied Magnetics, Goleta, CA
Lines: 21

This simplified fragment violates the standard by passing reals to a
routine that expects integers.

      program wrong
      real rin, rout
      rin= 0.577215665          ! or whatever...
      call icopy(rin, rout)
      write(6,*) rout
      end

      subroutine icopy(iin, iout)
      integer iin, iout
      iout= iin
      return
      end

Seems fairly innocuous, though.  Q:  are there implementations
where it would fail ?

  --Pierre Asselin, R&D, Applied Magnetics Corp.  I speak for me.
    3003jalp@ucsbuxa.ucsb.edu    (appmag.com doesn't work yet)