403Webshell
Server IP : 217.160.0.135  /  Your IP : 216.73.217.85
Web Server : Apache
System : Linux www 6.18.52-i1-ampere #1203 SMP Mon Sep 14 18:29:59 CEST 2026 aarch64
User : sws1074145052 ( 1074145052)
PHP Version : 8.3.32
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : OFF  |  Sudo : OFF  |  Pkexec : OFF
Directory :  /lib/python3/dist-packages/numpy/f2py/tests/__pycache__/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ Back ]     

Current File : /lib/python3/dist-packages/numpy/f2py/tests/__pycache__/test_character.cpython-311.pyc
�

���c,M���ddlZddlZddlmZmZmZddlZddlm	Z	Gd�de	j
��ZGd�de	j
��ZGd�d	e	j
��Z
dS)
�N)�assert_array_equal�assert_equal�
assert_raises)�utilc�2�eZdZdZdZgd�ZdZeD]�ZeZe	d����
ee��Zeej
d�gd�e��d�e��d	�e��d
�e��d�e��d�e��d�e��d	�e��d�e��d�e��d�e��d
�e��d�e��d�e��d
�e��d�e��d�e��d�e��d�e��d�e��d�e��d�e��d�e��d�e��d�e��d�����z
Z��ej�de��d���Zej�dedd���d���Zej�de��d���Zej�de��d���Zej�de��d���ZdS)�TestCharacterString�.f90�test_character_string��1�3�star��(*))rz

        subroutine �_input_z(c, o, n)
          character*z�, intent(in) :: c
          integer n
          !f2py integer, depend(c), intent(hide) :: n = slen(c)
          integer*1, dimension(n) :: o
          !f2py intent(out) o
          o = transfer(c, o)
        end subroutine �_output_z�, intent(out) :: c
          integer n
          integer*1, dimension(n), intent(in) :: o
          !f2py integer, depend(o), intent(hide) :: n = len(o)
          c = transfer(o, c)
        end subroutine �
_array_input_z;(c, o, m, n)
          integer m, i, n
          character*aH, intent(in), dimension(m) :: c
          !f2py integer, depend(c), intent(hide) :: m = len(c)
          !f2py integer, depend(c), intent(hide) :: n = f2py_itemsize(c)
          integer*1, dimension(m, n), intent(out) :: o
          do i=1,m
            o(i, :) = transfer(c(i), o(i, :))
          end do
        end subroutine �_array_output_z!(c, o, m, n)
          character*a, intent(out), dimension(m) :: c
          integer n
          integer*1, dimension(m, n), intent(in) :: o
          !f2py character(f2py_len=n) :: c
          !f2py integer, depend(o), intent(hide) :: m = len(o)
          !f2py integer, depend(o), intent(hide) :: n = shape(o, 1)
          do i=1,m
            c(i) = transfer(o(i, :), c(i))
          end do
        end subroutine �_2d_array_input_zH(c, o, m1, m2, n)
          integer m1, m2, i, j, n
          character*a�, intent(in), dimension(m1, m2) :: c
          !f2py integer, depend(c), intent(hide) :: m1 = len(c)
          !f2py integer, depend(c), intent(hide) :: m2 = shape(c, 1)
          !f2py integer, depend(c), intent(hide) :: n = f2py_itemsize(c)
          integer*1, dimension(m1, m2, n), intent(out) :: o
          do i=1,m1
            do j=1,m2
              o(i, j, :) = transfer(c(i, j), o(i, j, :))
            end do
          end do
        end subroutine z	
        �lengthc�(�ddi�||��}t|j|jdz|z��}dddd�|}t	||��tjttt|����d�	����dS)
Nrrr�a�abc�abcdeabcdeabcder�u1��dtype)
�get�getattr�module�fprefixr�np�array�list�map�ord��selfr�fsuffix�frs     �A/usr/lib/python3/dist-packages/numpy/f2py/tests/test_character.py�
test_inputzTestCharacterString.test_inputLs����&�/�%�%�f�f�5�5���D�K���	�!9�G�!C�D�D���E�;�7�7��?���1�1�Q�4�4���$�s�3��{�{�*;�*;�4�!H�!H�!H�I�I�I�I�I�N���c��|}t|j|jdz|z��}ddd�|}t|t	jt
tt|����d�����|�	����dS)Nrrr)rr
rr)
rr r!rr"r#r$r%r&�encoder's     r+�test_outputzTestCharacterString.test_outputUs������D�K���
�!:�W�!D�E�E���E�"�"�6�*���1�1�R�X�d�3�s�A�;�;�&7�&7�t�D�D�D�E�E��8�8�:�:�	'�	'�	'�	'�	'r-c��|}t|j|jdz|z��}tjdddd�|dddd�|gd	�
��}tjd�|D��d�
��}t||��|��dS)
Nrrrrr�A�ABC�ABCDEABCDEABCDE�Src�&�g|]}d�|D����S)c��g|]}|��S�r9��.0�cs  r+�
<listcomp>zCTestCharacterString.test_array_input.<locals>.<listcomp>.<listcomp>hs��^�^�^�A�a�^�^�^r-r9�r;�ss  r+r=z8TestCharacterString.test_array_input.<locals>.<listcomp>hs"��7�7�7��^�^��^�^�^�7�7�7r-r�rr r!r"r#r�r(rr)r*r�expecteds      r+�test_array_inputz$TestCharacterString.test_array_input_s������D�K����!?�'�!I�J�J���H�C�e�[�A�A�&�I��e�[�A�A�&�I��"�
$�
$�
$���8�7�7�Q�7�7�7�t�D�D�D���1�1�Q�4�4��*�*�*�*�*r-c��|}t|j|jdz|z��}tjdddd�|dddd�|gd	�
��}tjd�|D��d�
��}t||��|��dS)
Nrrrrrr3r4r5r6rc�&�g|]}d�|D����S)c��g|]}|��Sr9r9r:s  r+r=zDTestCharacterString.test_array_output.<locals>.<listcomp>.<listcomp>ts��n�n�n�Q�q�n�n�nr-r9r>s  r+r=z9TestCharacterString.test_array_output.<locals>.<listcomp>ts"��7�7�7��n�n�!�n�n�n�7�7�7r-rr@)r(rr)r*rBrs      r+�test_array_outputz%TestCharacterString.test_array_outputks������D�K���0@�!@�7�!J�K�K���8��U�K�
8�
8��
@��U�K�
8�
8��
@�
B�IL�N�N�N��
�H�7�7�h�7�7�7�t�D�D�D���1�1�Q�4�4��*�*�*�*�*r-c�F�|}t|j|jdz|z��}tjdddd�|dddd�|gd	d
dd�|dd
dd�|ggd���}tjd�|D��dd���}t||��|��dS)Nrrrrrr3r4r5r*�fgh�fghijfghijfghij�F�FGH�FGHIJFGHIJFGHIJr6rc�&�g|]}d�|D����S)c�&�g|]}d�|D����S)c��g|]}|��Sr9r9r:s  r+r=zQTestCharacterString.test_2d_array_input.<locals>.<listcomp>.<listcomp>.<listcomp>�s��/�/�/�Q�q�/�/�/r-r9)r;�items  r+r=zFTestCharacterString.test_2d_array_input.<locals>.<listcomp>.<listcomp>�s'��@�@�@�D�/�/�$�/�/�/�@�@�@r-r9)r;�rows  r+r=z;TestCharacterString.test_2d_array_input.<locals>.<listcomp>�s'��N�N�N�S�@�@�C�@�@�@�N�N�Nr-r�r�orderr@rAs      r+�test_2d_array_inputz'TestCharacterString.test_2d_array_inputws������D�K���0B�!B�W�!L�M�M���H�S�u�k�B�B�6�J� �u�k�B�B�6�J�L� �u�k�B�B�6�J� �u�k�B�B�6�J�L�M��	
 �
 �
 ��
�8�N�N�A�N�N�N�"&�c�3�3�3���1�1�Q�4�4��*�*�*�*�*r-)�__name__�
__module__�__qualname__�suffixr!�length_list�coderr)�dictr�clength�textwrap�dedent�join�pytest�mark�parametrizer,r1rCrGrUr9r-r+rrs������
�F�%�G�$�$�$�K�
�D��;
�;
�����$�E�"�"�"�&�&�v�v�6�6������7!�7!�7!�7!�7!�7!��7!�7!�7!�7!�$+�7!�7!�7!�7!��7!�7!�7!�7!� �7!�7!�7!�7!�)0�7!�7!�7!�7!��7!�7!�7!�7!�&-�7!�7!�7!�7!��7!�7!�7!�7!�" �#7!�7!�7!�7!�"*1�#7!�7!�7!�7!�&�'7!�7!�7!�7!�&+2�'7!�7!�7!�7!�*�+7!�7!�7!�7!�8 �97!�7!�7!�7!�8/6�97!�7!�7!�7!�<�=7!�7!�7!�7!�<,3�=7!�7!�7!�7!�>�?7!�7!�7!�7!�P �Q7!�7!�7!�7!�P07�Q7!�7!�7!�7!�T�U7!�7!�7!�7!�T.5�U7!�7!�7!�7!�X�Y7!�7!�7!�7!�l �m7!�7!�7!�7!�l29�m7!�7!�7!�7!�7!�7!�7
�7
�7	
���r�[���X�{�3�3�J�J�4�3�J��[���X�{�3�B�3�'7�8�8�'�'�9�8�'��[���X�{�3�3�	+�	+�4�3�	+��[���X�{�3�3�	+�	+�4�3�	+��[���X�{�3�3�+�+�4�3�+�+�+r-rc��eZdZdZdZejd�gd�e��d�e��d�e��d�e��d�e��d	�e��d
�e��d�e��d�e��d
�e��d�e��d�e��d�e��d�e��d�e��d�e��d�e��d�e��d�e��d�e��d�e��d�e��d�e��d�e��d�����Ze	j
�dddg��d ���Zd!�Z
e	j
�dgd"���d#���Zd$�Ze	j
�dgd"���d%���Zd&�Zd'�Zd(�Ze	j
�dddg��d)���Zd*�Ze	j
�dddg��d+���Ze	j
�dddg��d,���Zd-�Ze	j
�d.��d/���Zd0�Zd1S)2�
TestCharacterr	�test_characterr�
       subroutine z�_input(c, o)
          character, intent(in) :: c
          integer*1 o
          !f2py intent(out) o
          o = transfer(c, o)
       end subroutine z_input

       subroutine z�_output(c, o)
          character :: c
          integer*1, intent(in) :: o
          !f2py intent(out) c
          c = transfer(o, c)
       end subroutine z_output

       subroutine z�_input_output(c, o)
          character, intent(in) :: c
          character o
          !f2py intent(out) o
          o = c
       end subroutine z!_input_output

       subroutine z�_inout(c, n)
          character :: c, n
          !f2py intent(in) n
          !f2py intent(inout) c
          c = n
       end subroutine z_inout

       function z�_return(o) result (c)
          character :: c
          character, intent(in) :: o
          c = transfer(o, c)
       end function z_return

       subroutine z�_array_input(c, o)
          character, intent(in) :: c(3)
          integer*1 o(3)
          !f2py intent(out) o
          integer i
          do i=1,3
            o(i) = transfer(c(i), o(i))
          end do
       end subroutine z _array_input

       subroutine a'_2d_array_input(c, o)
          character, intent(in) :: c(2, 3)
          integer*1 o(2, 3)
          !f2py intent(out) o
          integer i, j
          do i=1,2
            do j=1,3
              o(i, j) = transfer(c(i, j), o(i, j))
            end do
          end do
       end subroutine z#_2d_array_input

       subroutine z�_array_output(c, o)
          character :: c(3)
          integer*1, intent(in) :: o(3)
          !f2py intent(out) c
          do i=1,3
            c(i) = transfer(o(i), c(i))
          end do
       end subroutine z!_array_output

       subroutine z�_array_inout(c, n)
          character :: c(3), n(3)
          !f2py intent(in) n(3)
          !f2py intent(inout) c(3)
          do i=1,3
            c(i) = n(i)
          end do
       end subroutine z _array_inout

       subroutine a _2d_array_inout(c, n)
          character :: c(2, 3), n(2, 3)
          !f2py intent(in) n(2, 3)
          !f2py intent(inout) c(2. 3)
          integer i, j
          do i=1,2
            do j=1,3
              c(i, j) = n(i, j)
            end do
          end do
       end subroutine z!_2d_array_inout

       function z�_array_return(o) result (c)
          character, dimension(3) :: c
          character, intent(in) :: o(3)
          do i=1,3
            c(i) = o(i)
          end do
       end function z_array_return

       function z�_optional(o) result (c)
          character, intent(in) :: o
          !f2py character o = "a"
          character :: c
          c = o
       end function z_optional
    rr<�S1c��t|j|jdz��}t|t	jd|�����t
d����t|t	jd|�����t
d����t|t	jdg|�����t
d����t|t	jd|�����t
d����t|t	jdgg|�����t
d����dS)N�_inputrr�ar)rr r!rr"r#r&�r(rr*s   r+r,zTestCharacter.test_input�s���D�K����!8�9�9���Q�Q�r�x��5�1�1�1�2�2�C��H�H�=�=�=��Q�Q�r�x��E�2�2�2�3�3�S��X�X�>�>�>��Q�Q�r�x���U�3�3�3�4�4�c�#�h�h�?�?�?��Q�Q�r�x��U�3�3�3�4�4�c�#�h�h�?�?�?��Q�Q�r�x�#���u�5�5�5�6�6��C���A�A�A�A�Ar-c��t|j|jdz��}t|d��t	d����t|d��t	d����t|d��d��t|d��d��t|d��d��t|d��t	d����t|d	��t	d����t|dg��t	d����t|tjd����t	d����t|tjdg����t	d����tjd��}t||��t	d����tjdg��}t||��t	d����	|g��t|j�d
����#t$r-}t|���d��s�Yd}~nd}~wwxYw	|d��t|j�d
����#t$r.}t|���d��s�Yd}~dSd}~wwxYw)Nrjrrkrrr-��absabz! should have failed on empty listz got 0-list�az  should have failed on int valuez got int instance)
rr r!rr&r"r#�SystemErrorrV�
IndexError�str�endswith�	TypeError�r(r*r�msgs    r+�test_input_variazTestCharacter.test_input_varia�s����D�K����!8�9�9���Q�Q�s�V�V�S��X�X�&�&�&��Q�Q�t�W�W�c�$�i�i�(�(�(��Q�Q�r�U�U�A�����Q�Q�s�V�V�Q�����Q�Q�u�X�X�q�!�!�!��Q�Q�t�W�W�c�#�h�h�'�'�'��Q�Q�u�X�X�s�3�x�x�(�(�(��Q�Q��u�X�X�s�3�x�x�(�(�(��Q�Q�r�x��~�~�&�&��C���1�1�1��Q�Q�r�x���'�'�(�(�#�c�(�(�3�3�3��H�S�M�M���Q�Q�q�T�T�3�s�8�8�$�$�$��H�c�U�O�O���Q�Q�q�T�T�3�s�8�8�$�$�$�	P�
�A�b�E�E�E�
���N�N�N�O�O�O��	�	�	�	��s�8�8�$�$�]�3�3�
��
�
�
�
�
�����	����	O�
�A�b�E�E�E�
���M�M�M�N�N�N��	�	�	�	��s�8�8�$�$�%8�9�9�
��
�
�
�
�
�
�����	���s0�H1�1
I(�;#I#�#I(�,J�
K�#K�K)r<rh�U1c���t|j|jdz��}t|t	jgd�|�����t	jt
ttd����d�����t|t	jgd�|�����t	jt
ttd����d�����dS)N�_array_input�r�br<rr�i1�rk�b�c)	rr r!rr"r#r$r%r&rls   r+rCzTestCharacter.test_array_inputs����D�K����!>�?�?���1�1�R�X�o�o�o�U�C�C�C�D�D��8�D��S�%���$9�$9��F�F�F�	H�	H�	H��1�1�R�X�&8�&8�&8��F�F�F�G�G��8�D��S�%���$9�$9��F�F�F�	H�	H�	H�	H�	Hr-c�8�t|j|jdz��}t|gd���t	jt
ttd����d�����t|gd���t	jt
ttd����d�����	|gd���t|j
�d����#t$r.}t|���
d	��s�Yd}~dSd}~wwxYw)
Nr{r|rr~rr�rr}r<�d�" should have failed on wrong input�)th dimension must be fixed to 3 but got 4)rr r!rr"r#r$r%r&rqrV�
ValueErrorrsrt)r(r*rws   r+�test_array_input_variaz$TestCharacter.test_array_input_varia(sR���D�K����!>�?�?���1�1�_�_�_�-�-��8�D��S�%���$9�$9��F�F�F�	H�	H�	H��1�1�/�/�/�0�0��8�D��S�%���$9�$9��F�F�F�	H�	H�	H�	C�
�A�"�"�"�#�#�#���:�A�A�A�C�C�
C���	�	�	��s�8�8�$�$�?�A�A�
��
�
�
�
�
�
�����	���s�=
C!�!
D�+#D�Dc��t|j|jdz��}tjgd�gd�g|d���}|�|dkrtjntj��}t||��|��dS)N�_2d_array_inputr|�r��er*rKrSry)	rr r!r"r#�view�uint32�uint8r)r(rr*rrBs     r+rUz!TestCharacter.test_2d_array_input9s����D�K���0A�!A�B�B���H�o�o�o�%�o�o�'�.3�3�
@�
@�
@���6�6�u��}�}�"�)�)�"�(�C�C���1�1�Q�4�4��*�*�*�*�*r-c��t|j|jdz��}t|t	d����d��t|d��d��dS)N�_outputrkrrn)rr r!rr&�r(r*s  r+r1zTestCharacter.test_outputBsV���D�K���	�!9�:�:���Q�Q�s�4�y�y�\�\�4�(�(�(��Q�Q�q�T�T�5�!�!�!�!�!r-c
���t|j|jdz��}t|t	ttd������tjt	d��d�����dS)N�
_array_outputrrhr)	rr r!rr$r%r&r"r#r�s  r+rGzTestCharacter.test_array_outputHsj���D�K����!?�@�@���1�1�T�#�c�5�/�/�2�2�3�3��8�D��K�K�t�<�<�<�	>�	>�	>�	>�	>r-c���t|j|jdz��}t|d��d��t|d��d��t|d��d��dS)N�
_input_outputrkrrrn�rr r!rr�s  r+�test_input_outputzTestCharacter.test_input_outputNsh���D�K����!?�@�@���Q�Q�t�W�W�d�#�#�#��Q�Q�s�V�V�T�"�"�"��Q�Q�r�U�U�E�"�"�"�"�"r-c�8�t|j|jdz��}tjtd��|���}||d��t
|tjtd��|j�����||dd�d��t
|tjtd��|j�����tjdg|���}||d��t
|tjdg|j�����dS)	N�_inoutrrr3�Abc��B�ABc)rr r!r"r#r$rr)r(rr*rs    r+�
test_inoutzTestCharacter.test_inoutUs����D�K����!8�9�9���H�T�%�[�[��.�.�.��	��!�S�	�	�	��1�b�h�t�E�{�{�!�'�B�B�B�C�C�C�	��!�A�B�B�%��
�
�
��1�b�h�t�E�{�{�!�'�B�B�B�C�C�C��H�e�W�E�*�*�*��	��!�S�	�	�	��1�b�h��w�a�g�>�>�>�?�?�?�?�?r-c�*�t|j|jdz��}tjdd���}||d��t|tjd|j�����tjdgd���}||d��t|tjdg|j�����	|dd��t|j�d����#t$r.}t|���d��s�Yd}~dSd}~wwxYw)	Nr�r�S3rr3r�z  should have failed on str valuez
 got 3-str)rr r!r"r#rrrqrVr�rsrtrvs    r+�test_inout_variazTestCharacter.test_inout_variacs4���D�K����!8�9�9���H�U�$�'�'�'��	��!�S�	�	�	��1�b�h�u�A�G�<�<�<�=�=�=��H�e�W�D�)�)�)��	��!�S�	�	�	��1�b�h��w�a�g�>�>�>�?�?�?�	O�
�A�e�S�M�M�M�
���M�M�M�N�N�N��	�	�	�	��s�8�8�$�$�\�2�2�
��
�
�
�
�
�
�����	���s�7C�
D�$#D
�
Dc��t|j|jdz��}tjgd�|d���}tjgd�|d���}|||��t||��tjgd�|���}||dd�|��t|tjgd	�|�����tjgd�g|d���}|||��t|tjgd�g|�����tjgd�|d���}	|||��t
|j�d
����#t$r.}t|���
d��s�Yd}~dSd}~wwxYw)N�_array_inout�r3r��CrKrSr|r�rr�)rr3r�r�r�r�)rr r!r"r#rrqrVr�rsrt)r(rr*�nrrws      r+�test_array_inoutzTestCharacter.test_array_inoutus����D�K����!>�?�?���H�_�_�_�E��=�=�=���H�_�_�_�E��=�=�=��	��!�Q�����1�a� � � ��H�)�)�)��7�7�7��	��!�A�B�B�%������1�b�h�';�';�';�5�I�I�I�J�J�J��H�o�o�o�&�e�3�?�?�?��	��!�Q�����1�b�h����'8��F�F�F�G�G�G��H�)�)�)��c�B�B�B��	C�
�A�a��G�G�G���:�A�A�A�C�C�
C���	�	�	��s�8�8�$�$�?�A�A�
��
�
�
�
�
�
�����	���s�%E�
F�#E;�;Fc���t|j|jdz��}tjgd�gd�g|d���}tjgd�gd�g|d���}|||��t||��dS)N�_2d_array_inoutr�)�D�ErKrKrSr|r�r@)r(rr*r�rs     r+�test_2d_array_inoutz!TestCharacter.test_2d_array_inout�s����D�K���0A�!A�B�B���H�o�o�o�%�o�o�'� ��
-�
-�
-��
�H�o�o�o�%�o�o�'� ��
-�
-�
-��	
��!�Q�����1�a� � � � � r-c�r�t|j|jdz��}t|d��d��dS)N�_returnrrkr�r�s  r+�test_returnzTestCharacter.test_return�s8���D�K���	�!9�:�:���Q�Q�s�V�V�T�"�"�"�"�"r-z*fortran function returning array segfaultsc��t|j|jdz��}tjtd��d���}t
||��|��dS)N�
_array_returnrrhr)rr r!r"r#r$r)r(r*rs   r+�test_array_returnzTestCharacter.test_array_return�sR���D�K����!?�@�@���H�T�%�[�[��-�-�-���1�1�Q�4�4��#�#�#�#�#r-c��t|j|jdz��}t|��d��t|d��d��dS)N�	_optionalrk�Br�r�s  r+�
test_optionalzTestCharacter.test_optional�sN���D�K����!;�<�<���Q�Q�S�S�$�����Q�Q�t�W�W�d�#�#�#�#�#r-N)rVrWrXrYr!r^r_r`r[rarbrcr,rxrCr�rUr1rGr�r�r�r�r�r��skipr�r�r9r-r+rere�s&������
�F��G��8�?�e�e�e�e�e�e��e�e�e�e��
e�e�e�e��e�e�e�e��e�e�e�e��e�e�e�e�(�)e�e�e�e�,�-e�e�e�e�6�7e�e�e�e�:�;e�e�e�e�B�Ce�e�e�e�F�Ge�e�e�e�V�We�e�e�e�Z�[e�e�e�e�n�oe�e�e�e�r�se�e�e�e�@�Ae�e�e�e�D�Ee�e�e�e�R�Se�e�e�e�V�We�e�e�e�j�ke�e�e�e�n�oe�e�e�e�z�{e�e�e�e�~�e�e�e�e�H�Ie�e�e�e�e�e�e	�e	�D�N�[���W�s�D�k�2�2�B�B�3�2�B�!O�!O�!O�F�[���W�&7�&7�&7�8�8�H�H�9�8�H�C�C�C�"�[���W�&7�&7�&7�8�8�+�+�9�8�+�"�"�"�>�>�>�#�#�#��[���W�s�D�k�2�2�@�@�3�2�@�O�O�O�$�[���W�s�D�k�2�2�C�C�3�2�C�6�[���W�s�D�k�2�2�	!�	!�3�2�	!�#�#�#�
�[���B�C�C�$�$�D�C�$�$�$�$�$�$r-rec���eZdZdZdZejde�de�de�de�de�de�d	e�d
e�de�de�d
e�de�d���Zd�Zd�Z	d�Z
d�Zej
�dddg��d���ZdS)�TestMiscCharacterr	�test_misc_characterrga(_gh18684(x, y, m)
         character(len=5), dimension(m), intent(in) :: x
         character*5, dimension(m), intent(out) :: y
         integer i, m
         !f2py integer, intent(hide), depend(x) :: m = f2py_len(x)
         do i=1,m
           y(i) = x(i)
         end do
       end subroutine z_gh18684

       subroutine z�_gh6308(x, i)
         integer i
         !f2py check(i>=0 && i<12) i
         character*5 name, x
         common name(12)
         name(i + 1) = x
       end subroutine z_gh6308

       subroutine z�_gh4519(x)
         character(len=*), intent(in) :: x(:)
         !f2py intent(out) x
         integer :: i
         do i=1, size(x)
           print*, "x(",i,")=", x(i)
         end do
       end subroutine z_gh4519

       pure function aq_gh3425(x) result (y)
         character(len=*), intent(in) :: x
         character(len=len(x)) :: y
         integer :: i
         do i = 1, len(x)
           j = iachar(x(i:i))
           if (j>=iachar("a") .and. j<=iachar("z") ) then
             y(i:i) = achar(j-32)
           else
             y(i:i) = x(i:i)
           endif
         end do
       end function z_gh3425

       subroutine aO_character_bc_new(x, y, z)
         character, intent(in) :: x
         character, intent(out) :: y
         !f2py character, depend(x) :: y = x
         !f2py character, dimension((x=='a'?1:2)), depend(x), intent(out) :: z
         character, dimension(*) :: z
         !f2py character, optional, check(x == 'a' || x == 'b') :: x = 'a'
         !f2py callstatement (*f2py_func)(&x, &y, z)
         !f2py callprotoargument character*, character*, character*
         if (y.eq.x) then
           y = x
         else
           y = 'e'
         endif
         z(1) = 'c'
       end subroutine z%_character_bc_new

       subroutine aG_character_bc_old(x, y, z)
         character, intent(in) :: x
         character, intent(out) :: y
         !f2py character, depend(x) :: y = x[0]
         !f2py character, dimension((*x=='a'?1:2)), depend(x), intent(out) :: z
         character, dimension(*) :: z
         !f2py character, optional, check(*x == 'a' || x[0] == 'b') :: x = 'a'
         !f2py callstatement (*f2py_func)(x, y, z)
         !f2py callprotoargument char*, char*, char*
          if (y.eq.x) then
           y = x
         else
           y = 'e'
         endif
         z(1) = 'c'
       end subroutine z_character_bc_old
    c��t|j|jdz��}tjddgd���}||��}t||��dS)N�_gh18684�abcde�fghij�S5rr@)r(r*�x�ys    r+�test_gh18684zTestMiscCharacter.test_gh18684sV���D�K���
�!:�;�;���H�g�w�'�t�4�4�4��
�A�a�D�D���1�a� � � � � r-c���t|j|jdz��}t|jjjjtjd����tt|jjj��d��|dd��t|jjjdd��|dd��t|jjjdd	��dS)
N�_gh6308r��r�rsabcde�12345�s12345)	rr r!r�_BLNK_�namerr"�lenr�s  r+�test_gh6308zTestMiscCharacter.test_gh6308
s����D�K���	�!9�:�:���T�[�'�,�2�B�H�T�N�N�C�C�C��S���+�0�1�1�2�6�6�6�	��'�1�
�
�
��T�[�'�,�Q�/��:�:�:�	��'�1�
�
�
��T�[�'�,�Q�/��:�:�:�:�:r-c�r�t|j|jdz��}dtdt	jd�����fdtdt	jd�����ft	jgd�d�	��td
t	jd�����fgd�td
t	jd�����fd
d
gtdt	jd�����ffD]H\}}||��}|���D]#\}}tt||��|���$�IdS)N�_gh4519rr9rh)�shaper�text�S4)r�2r
r)�)rr��34�S2r)�)	rr r!r\r"rr#�itemsr)r(r*r�rB�r�k�vs       r+�test_gh4519zTestMiscCharacter.test_gh4519s<���D�K���	�!9�:�:���d��2�8�D�>�>�:�:�:�;���B�b�h�t�n�n�=�=�=�>���/�/�/��6�6�6��D������7�7�7�9�!�!�!��D������7�7�7�9��b��4�d�"�(�4�.�.�A�A�A�B�D�
	/�
	/�K�A�x���!���A� ���(�(�
/�
/���1��W�Q��]�]�A�.�.�.�.�
/�
	/�
	/r-c���t|j|jdz��}t|d��d��t|d��d��t|d��d��dS)N�_gh3425�abCsABCrr-�abC12dsABC12Dr�r�s  r+�test_gh3425zTestMiscCharacter.test_gh3425%sj���D�K���	�!9�:�:��	�Q�Q�u�X�X�v�&�&�&��Q�Q�r�U�U�C� � � ��Q�Q�x�[�[�)�,�,�,�,�,r-�state�new�oldc�b��t|j|jdz|z������\}}t|d��tt	|��d���d��\}}t|d��tt	|��d��tt�fd���dS)N�_character_bc_rkr�r�r�c����d��S)Nr�r9)r*s�r+�<lambda>z5TestMiscCharacter.test_character_bc.<locals>.<lambda>:s�����4���r-)rr r!rr�r�	Exception)r(r�r<rr*s    @r+�test_character_bcz#TestMiscCharacter.test_character_bc.s�����D�K���0@�!@�5�!H�I�I���q�s�s���1��Q������S��V�V�Q�����q��w�w���1��Q������S��V�V�Q�����i�����1�1�1�1�1r-N)rVrWrXrYr!r^r_r[r�r�r�r�rarbrcr�r9r-r+r�r��s�������
�F�#�G��8�?�K��K�K��K�K��K�K�"�#K�K�&�'K�K�4�5K�K�8�9K�K�P�QK�K�T�UK�K�r�sK�K�v�wK�K�T�UK�K�K�K	�K	�D�Z!�!�!�	;�	;�	;�/�/�/� -�-�-��[���W�u�e�n�5�5�2�2�6�5�2�2�2r-r�)rar^�
numpy.testingrrr�numpyr"�numpy.f2py.testsr�F2PyTestrrer�r9r-r+�<module>r�s���
�
�
�
�����I�I�I�I�I�I�I�I�I�I�����!�!�!�!�!�!�{+�{+�{+�{+�{+�$�-�{+�{+�{+�|g$�g$�g$�g$�g$�D�M�g$�g$�g$�T	J2�J2�J2�J2�J2��
�J2�J2�J2�J2�J2r-

Youez - 2016 - github.com/yon3zu
LinuXploit