This is the mail archive of the gcc-bugs@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[Bug fortran/14056] New: [gfortran] Error passing intrinsic function as actual argument in subroutine


Distilled from the NIST F77 compliance test FM317.FOR
        
$ cat xxx.f
       INTRINSIC  IABS
       INTEGER FF324
       IVCOMP = FF324(IABS,-7)
       PRINT*,IVCOMP
       END
      INTEGER FUNCTION FF324(NINT, IDON03)                              00010324
C          THIS FUNCTION IS USED BY TESTS 029, 030 AND 031 OF MAIN      00020324
C     PROGRAM FM317 TO TEST THE ASSOCIATION OF EXTERNAL FUNCTION AND    00030324
C     INTRINSIC FUNCTION NAMES USED AS ACTUAL ARGUMENTS TO A PROCEDURE  00040324
C     NAME USED AS A DUMMY ARGUMENT.  THIS FUNCTION REFERENCES THE      00050324
C     EXTERNAL FUNCTION OR INTRINSIC FUNCTION PASSED AS A PROCEDURE     00060324
C     NAME ARGUMENT, INCREMENTING THE RESULT BY ONE BEFORE RETURNING    00070324
C     THE RESULT AS THE FUNCTION VALUE.                                 00080324
      PRINT*,'the arg is ',IDON03
      FF324 = NINT(IDON03) + 1                                          00090324
C          **** THE NAME NINT IS A DUMMY ARGUMENT                       00100324
C                   AND NOT AN INTRINSIC FUNCTION REFERENCE *****       00110324
      RETURN                                                            00120324
      END                                                               00130324
 
$ /usr/local/bin/gfortran xxx.f
/tmp/cceZLLAo.o(.text+0x10): In function `MAIN__':
: undefined reference to `specific__abs_i4'
collect2: ld returned 1 exit status
[bdavis@localhost ~]$ g77 xxx.f
[bdavis@localhost ~]$ ./a.out
 the arg is  -7
 8
$ /usr/local/bin/gfortran --version
GNU Fortran 95 (GCC 3.5-tree-ssa 20040206 (merged 20040126))
Copyright (C) 2003 Free Software Foundation, Inc.

-- 
           Summary: [gfortran]  Error passing intrinsic function as actual
                    argument in subroutine
           Product: gcc
           Version: tree-ssa
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: bdavis9659 at comcast dot net
                CC: gcc-bugs at gcc dot gnu dot org


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


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]