yz0TestF77Callback.check_function..6 s a r r c dS N r as r r! z0TestF77Callback.check_function..8 r ) )fun_extra_argsr$ c | S r r r% s r r! z0TestF77Callback.check_function..: r' r r( c d| z S r# r r% s r r! z0TestF77Callback.check_function..< s
A r ) c * t j | S r )mathdegreesr% s r r! z0TestF77Callback.check_function..> s Q r c e Zd Zd Zd ZdS ))TestF77Callback.check_function..Ac dS )Nr, r r s r __call__z2TestF77Callback.check_function..A.__call__K qr c dS )N r r7 s r mthz-TestF77Callback.check_function..A.mthN r9 r N)__name__
__module__ __qualname__r8 r< r r r Ar5 J s2
r r@ r, r; ) getattrr r/ pir0 funcfunc0 _cpointerr< )r r r rr@ r& s r r z TestF77Callback.check_function4 s DK & &
AiiLLAvvvv
Akk% 0 0 0Avvvv
Akk% 0 0 0Avvvv
Aooe 4 4 4Bwwww
A'' D D DCxxxx
AdlDG; 7 7 7Cxxxx
Adk u 5 5 5Bwwww
Adk Bwwww
Adk ) * *Bwwww
ACC
AaDDAvvvv
AaeHHAvvvvvvr win32z)Fails with MinGW64 Gfortran (Issue #9673)c \ d }t | j d } || }|dk sJ d S )Nc | dk rdS dS )NrF r r r )codes r r
z6TestF77Callback.test_string_callback..callbackZ s s{{qqr string_callbackr )rA r )r r
frF s r test_string_callbackz$TestF77Callback.test_string_callbackW sC
DK!2 3 3
AhKKAvvvvvvr c t j dd }t j dd }t j dgd }d }t | j d }|||fD ] } ||||j }|dk sJ d S ) N)r S8)r c c p | j |fk rdS | j dk rdS t j | dk sdS dS )Nr rO r r )shapedtypenpall)culencus r r
z.callbackl sH xE8##qx4 q6")$$
q1r string_callback_arrayr )rX zerosarrayrA r size)r cu1cu2cu3r
rL rZ ress r test_string_callback_arrayz*TestF77Callback.test_string_callback_arrayd s hud##hvs##htT""
DK!8 9 9S/ B!Hb"'**C!88888 r c g fd fdfddD }|D ]}| |D ]}| d rt d S )Nc v t j d j d } | dk sJ dS )NgMbP?c dS N{ r r r r r! z?TestF77Callback.test_threadsafety..cb.. s c r ri * )timesleepr r )rF r s r cbz-TestF77Callback.test_threadsafety..cb s>
Jt
kk**A88882r c
t d D ]9}j }|dk sJ | :d S # t $ r* t
j Y d S w xY w)N2 rj )ranger r r Exceptionappend traceback
format_exc)r jrF rm errorsr s r runnerz1TestF77Callback.test_threadsafety..runner s
6 r . .A
b))A 7777''----. .
6
6
6
i 2 4 4555555
6s A A 0BBc b g | ]+}t d D ]}t j |f ,S ) )targetargs)rp threadingThread).0argnrw s r
z5TestF77Callback.test_threadsafety.. sU
E"II
'(
F# 9 9 9
r )r t2z
)startjoinAssertionError)r threadsr rm rv rw s ` @@@r test_threadsafetyz!TestF77Callback.test_threadsafetyz s 6 6 6 6 6 6 6
"
A
GGIIII A
FFHHHHV$$ ) (( ( ) )r c ~ | j d n;# t $ r.}t | d sJ Y d }~nd }~ww xY w | j d n;# t $ r.}t | d sJ Y d }~nd }~ww xY wd | j _ | j d }|dk sJ d | j _ | j d }|dk sJ | j ` | j d n;# t $ r.}t | d sJ Y d }~nd }~ww xY wd d | j _ | j d }|d
k sJ | j d }|dk sJ d S ) NrT z Callback global_f not definedz!cb: Callback global_f not definedc | dz S )Nr r xs r r! z6TestF77Callback.test_hidden_callback..
Q r rU c | dz S )NrT r r s r r! z6TestF77Callback.test_hidden_callback.. r r r r c | dz S )NrU r r s r r! z6TestF77Callback.test_hidden_callback.. s
1q5 r r$ )r )r hidden_callbackrq str
startswithhidden_callback2global_f)r msgrF s r test_hidden_callbackz$TestF77Callback.test_hidden_callback s H K ' ' * * * * H H Hs88&&'FGG G GG G G G G G H L K ( ( + + + + L L Ls88&&'JKK K KK K K K K K L / K ' ' * *Avvvv . K ' ' * *Avvvv K H K ' ' * * * * H H Hs88&&'FGG G GG G G G G G H 1 0 0 K ' ' * *Avvvv
K ( ( + +AvvvvvvsD
A$AAA4 4
B,>$B''B,D0 0
E(:$E##E(N)r= r> r? r getpathsourcespytestmark parametrizesplitr xfailr r r skipifsysplatformrM rd r r r r r r r s] t|GUJ@@AG [ VV\\#%6%677" " 87" [w L N N1 1N N1:! ! !F [ / J L L L L [ / J L L L L (&) &) &)P r r c e Zd ZdZdgZdS )TestF77CallbackPythonTLSz[
Callback tests using Python thread-local storage instead of
compiler-provided
z-DF2PY_USE_PYTHON_TLSN)r= r> r? r optionsr r r r r s"
''GGGr r c < e Zd Z ej dddd gZd ZdS )TestF90Callbackr r r
z gh17797.f90c d }t j g dt j }| j || }|dk sJ d S )Nc | dz S rh r r s r incrz*TestF90Callback.test_gh17797..incr s s7Nr )r rT rU )rW )rX r^ int64r gh17797)r r yrF s r test_gh17797z TestF90Callback.test_gh17797 s[
HYYYbh / / / K a ( (O######r N)r= r> r? r r r r r r r r r s= t|GUJ
FFGG$ $ $ $ $r r c @ e Zd ZdZ ej dddd gZd ZdS ) TestGH18335zThe reproduction of the reported issue requires specific input that
extensions may break the issue conditions, so the reproducer is
implemented as a separate test class. Do not extend this test with
other tests!
r r r
z gh18335.f90c P d }| j | }|dk sJ d S )Nc & | dxx dz
cc< d S )Nr r r r s r fooz%TestGH18335.test_gh18335..foo s
aDDDAIDDDDDr | )r gh18335)r r rF s r test_gh18335zTestGH18335.test_gh18335 s9
K $ $G||||||r N)r= r> r? r r r r r r r r r r sI
t|GUJ
FFGG r r )r/ r r r r| rs rk numpyrX
numpy.testingr rR r F2PyTestr r r r r r r r s;
! ! ! ! ! ! s s s s sdm s s sl( ( ( ( ( ( ( ( $ $ $ $ $dm $ $ $
$-
r