[Bug fortran/30237] Alternate return arguments in intrinsic subroutine calls are ignored

[pault at gcc dot gnu dot org]

------- Comment #2 from pault at gcc dot gnu dot org  2006-12-19 12:48 -------
Created an attachment (id=12827)
 --> (http://gcc.gnu.org/bugzilla/attachment.cgi?id=12827&action=view)
Fix for the problem

With all the interface patches in place, to allow the overloading of
random_seed, the following gives the right errors in the right places

program ar1
    interface random_seed
      subroutine x (a, *)
        integer a
      end subroutine x
    end interface random_seed

    real t1(2)
    call cpu_time(*20, t1(1)) ! { dg-error "Too many arguments" }
    call random_seed(i, *20)
    call random_seed(i, *20, *30) ! { dg-error "not permitted" }
    stop
20  write(*,*) t1
30 stop
end

Paul


-- 

pault at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |pault at gcc dot gnu dot org
                   |dot org                     |
             Status|UNCONFIRMED                 |ASSIGNED


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