This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/14056] New: [gfortran] Error passing intrinsic function as actual argument in subroutine
- From: "bdavis9659 at comcast dot net" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 7 Feb 2004 02:34:09 -0000
- Subject: [Bug fortran/14056] New: [gfortran] Error passing intrinsic function as actual argument in subroutine
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
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