------- Comment #5 from hjl at lucon dot org 2006-04-04 23:28 -------
[EMAIL PROTECTED] cpu2006-465e]$ cat mod.f90
module mod
implicit none
private
public bar_
interface bar_
module procedure bar
end interface
public foo_
interface foo_
module procedure foo
end interface
contains
subroutine bar (a)
real(kind=kind(1.0d0)), dimension(:,:), optional :: a
if (present (a)) call abort ()
call foo_ (a)
end subroutine bar
subroutine foo(a)
real(kind=kind(1.0d0)), dimension(:,:), optional :: a
if (present (a)) call abort ()
end subroutine foo
end
[EMAIL PROTECTED] cpu2006-465e]$ cat main.f90
program main
use mod
call bar_ ()
end program main
[EMAIL PROTECTED] cpu2006-465e]$
/export/build/gnu/gcc/build-x86_64-linux/gcc/gfortran
-B/export/build/gnu/gcc/build-x86_64-linux/gcc/ -g -o x mod.f90 main.f90
-Wl,-rpath,/usr/gcc-4.2/lib64
[EMAIL PROTECTED] cpu2006-465e]$ ./x
Aborted
[EMAIL PROTECTED] cpu2006-465e]$
--
hjl at lucon dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|RESOLVED |UNCONFIRMED
Resolution|INVALID |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=27035
