fortran - Is this linker error in 32 bit Windows gFortran a bug? -


the following code compiles 64 bit use of fortran generic interfaces seems confuse gcc attribute in 32 bit (required call 32 bit stdcall api). code stripped down version of f03gl project attempting build windows (i couldn't create smaller repro).

a rework of code (shown @ bottom) without generic interface , passing arguments direct compile , work. i'm hoping won't have rewrite of calls work around issue.

the error is;

callglutbad.o:callglutbad.f90:(.text+0x27): undefined reference `glutinit'

callglut.f90 (fails 32 bit compilation)

module glutmodule   use iso_c_binding   implicit none   public glutinit    interface glutinit     module procedure glutinit_f03   end interface glutinit    interface      subroutine glutinit_gl(pargc, argv) bind(c,name="glutinit")       import  #ifdef x86 !gcc$ attributes stdcall :: glutinit #endif       integer(c_int) :: pargc       type(c_ptr), intent(in) :: argv     end subroutine glutinit_gl    end interface    contains    subroutine glutinit_f03()     integer(c_int) :: argcp=1     type(c_ptr), dimension(1), target :: argv=c_null_ptr     character(c_char), dimension(1), target :: empty_string=c_null_char      argv(1)=c_loc(empty_string)     call glutinit_gl(argcp, c_loc(argv))    end subroutine  end module glutmodule  program main   use glutmodule    print *,"calling glutinit"   call glutinit()   print *,"called glutinit"  end program main

build.bat

rem 32 bit  @setlocal @set path=%path%;c:\msys64\mingw32\bin\ gfortran -dx86 -cpp -c callglut.f90 -o callglut.o gcc callglut.o -o callglut32.exe ..\x86\lib\freeglut.lib -lgfortran @endlocal  rem 64 bit  @setlocal @set path=%path%;c:\msys64\mingw64\bin\ gfortran -cpp -c callglut.f90 -o callglut.o gcc callglut.o -o callglut64.exe ..\x64\lib\freeglut.lib -lgfortran @endlocal

the generic interface used call glutinit without parameters fortran (the parameters filled in proxy subroutine).

callglut.f90 (compiles , runs on both platforms)

module glutmodule   use iso_c_binding   implicit none   public glutinit    interface      subroutine glutinit(pargc, argv) bind(c,name="glutinit")       import  #ifdef x86 !gcc$ attributes stdcall :: glutinit #endif       integer(c_int) :: pargc       type(c_ptr), intent(in) :: argv     end subroutine glutinit   end interface  end module glutmodule  program main   use glutmodule    print *,"calling glutinit"   call glutinit(0,c_null_ptr)   print *,"called glutinit"  end program main

am seeing compiler bug attribute statement not being applied generic interface or doing? suspect , 32 bit stdcall name mangling glutinit _glutinit@8 not being performed.

i using gfortran under msys2 (gnu fortran (rev2, built msys2 project) 7.1.0) on 64 bit windows both 32 , 64 bit compilers.

it doesn't make sense apply stdcall attribute identifier generic name. compiler's perspective, generic name common label number of procedures. while individual specific procedures may have different calling conventions, label them not.

if want tell compiler specific procedure has calling convention, use name compiler knows specific procedure by, in relevant declaration.

!gcc$ attributes stdcall :: glutinit_gl

Comments

Post a Comment

Popular posts from this blog

ubuntu - PHP script to find files of certain extensions in a directory, returns populated array when run in browser, but empty array when run from terminal -

i running os ububtu 16.04. ultimate goal able run php script cron job every minute. here php script located @ /var/www/html/tests/test/index.php : <?php $directorypath = $_server['document_root']."/tests/test/data/"; echo "directorypath: $directorypath<br><br>";//check $imagefilepathsarray = glob($directorypath . "*.{png,gif}", glob_brace); echo "<br><br>imagefilepathsarray: "; print_r($imagefilepathsarray);//check ?> when open php script in browser visiting url my-ip-address/tests/test/index.php , get: directorypath: /var/www/html/tests/test/data/ imagefilepathsarray:array( [0] => /var/www/html/tests/test/data/pic.png [1] => /var/www/html/tests/test/data/pic.gif ) before writing cron job in crontab file, need check if can run anywhere using terminal . opened ubuntu terminal @ /home/ location, , executed in terminal: sudo php /var/www/html/tests/test/index.php i got following out...
Read more

php - How can i create a user dashboard -

today have questions you, want create user dashboard site, include (obviously), users data, example -email -username -and others stuff how can information, , print them in html page? if can, how can these information via php sessions? shuld use session? example, if user login, , start new session ( session_start() ), how can data print in dashboard? should use php "project"? in advice, have day , thank time!
Read more

javascript - How to detect toggling of the fullscreen-toolbar in jQuery Mobile? -

i have jquery mobile page fixed full-screen toolbar, data-tap-toggle enabled. straight under toolbar have positioned banner should slide upwards when toolbar hiding , slide downward when toolbar showing. jquery mobile toggles toolbar applying , removing ui-fixed-hidden class - sadly, can't find in documentation of toolbar widget toggle , hide or show event that. how can detect when toolbar toggled, reposition banner? .banner { position: fixed; background-color: darkseagreen; top: 46px; min-height: 48px; width: 100%; text-align: center; line-height: 48px; } <!doctype html> <html> <head> <meta charset="utf-8"> <meta name="viewport" content="width=device-width, initial-scale=1, user-scalable=no"> <link rel="stylesheet" href="https://code.jquery.com/mobile/1.4.5/jquery.mobile-1.4.5.css"> <script src="https://code.jquery.com/jquery-1....
Read more