ftnlf

Check-in [a969522261]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Tweak test to check that L2F-generated module can be preloaded under arbitrary name.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:a969522261612817413ad05ccdd9aa45d4779df5
User & Date: vadim 2019-01-23 09:05:03
Context
2019-06-02
22:10
Add Fortran call to create new Fortran/Lua array. check-in: e07e054ee1 user: vadim tags: trunk
2019-01-23
09:05
Tweak test to check that L2F-generated module can be preloaded under arbitrary name. check-in: a969522261 user: vadim tags: trunk
2019-01-22
09:38
Add mechanism for embedding Lua modules into Fortran. check-in: 729c82f64c user: vadim tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to test.f90.

    68     68       logical :: r
    69     69       real(8) :: fval
    70     70       real(8) :: fvals(10), arr_m(1), arr_o(10)
    71     71       
    72     72       ! Initialize
    73     73       ldr(1)%name='FX.Test'
    74     74       ldr(1)%f => ldr_fx_test
    75         -    ldr(2)%name='TestModule'
           75  +    ldr(2)%name='FX.L2FTestModule'
    76     76       ldr(2)%f => ldr_testmodule
    77     77       r = ftnlf_init('testdb.lua', ldr)
    78     78       if (.not. r) stop 99
    79     79   
    80     80       ! Simplified iface
    81     81       r = luafun_s('val1', [1.d0,-3.5d0], fval, tblname='tbl1')
    82     82       write (*,'(L2,1X,1PE11.4)') r, fval

Changes to testdb.lua.

    39     39   print('OUT: ')
    40     40   for k = 1, #A do
    41     41      print(A[k])
    42     42   end
    43     43   
    44     44   end
    45     45   
    46         -local T2 = require('TestModule')
           46  +local T2 = require('FX.L2FTestModule')
    47     47   T2.printme()