From: arne@vajhoej.dk   
      
   On 1/31/2025 2:38 PM, Arne Vajhøj wrote:   
   > $ type dump.for   
   >        subroutine dump(v)   
   >        integer*4 v   
   >        write(*,*) v   
   >        end   
   > $ for dump   
   > $ type logfun.for   
   >        program logfun   
   >        call dump(.true.)   
   >        call dump(.false.)   
   >        end   
   > $ for logfun   
   > $ link logfun + dump   
   > $ run logfun   
   >           -1   
   >            0   
      
   Fortran got some other rather unique usages   
   of logicals:   
      
   $ type morelogfun.for   
          program morelogfun   
          logical*1 a(12)   
          data a/1hH,1he,1hl,1hl,1ho,1h ,1hw,1ho,1hr,1hl,1hd,1h!/   
          integer*4 i   
          write(*,*) (a(i),i=1,12)   
          write(*,'(1x,12a1)') (a(i),i=1,12)   
          end   
   $ for morelogfun   
   $ lin morelogfun   
   $ run morelogfun   
   F T F F T F T T F F F T   
   Hello world!   
      
   Arne   
      
   --- SoupGate-DOS v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)