Файловый менеджер - Редактировать - /home/digitalm/venv/lib/python3.7/site-packages/numpy/f2py/tests/__pycache__/test_crackfortran.cpython-37.pyc
Назад
B �5�g� � @ s� d dl Zd dlmZ ddlmZ d dlmZ d dlZd dl Z G dd� dej �Z G dd � d �Z G d d � d ej �Z G d d � d ej �ZdS )� N)�assert_array_equal� )�util)� crackfortranc @ s e Zd ZdZdd� ZdS )� TestNoSpacea| subroutine subb(k) real(8), intent(inout) :: k(:) k=k+1 endsubroutine subroutine subc(w,k) real(8), intent(in) :: w(:) real(8), intent(out) :: k(size(w)) k=w+1 endsubroutine function t0(value) character value character t0 t0 = value endfunction c C s| t jdddgt jd�}t jdddgt jd�}| j�|� t||d � | j�||g� t||d � | j�d�dksxt�d S )Nr � � )Zdtype� � 2) �np�arrayZfloat64�moduleZsubbr Zsubc�t0�AssertionError)�self�k�w� r �X/home/digitalm-up/venv/lib/python3.7/site-packages/numpy/f2py/tests/test_crackfortran.py� test_module s zTestNoSpace.test_moduleN)�__name__� __module__� __qualname__�coder r r r r r s r c @ s e Zd Zdd� Zdd� ZdS )�TestPublicPrivatec C s� |d }|� d��}|�t�d�� W d Q R X t�t|�g�}t|�dksNt�|d }d|d d d ksnt�d |d d d ks�t�d|d d d ks�t�d |d d d ks�t�d|d d d ks�t�d |d d d ks�t�d S ) Nzmod.f90r a> module foo private integer :: a public :: setA integer :: b contains subroutine setA(v) integer, intent(in) :: v a = v end subroutine setA end module foo r r �private�vars�a�attrspec�public�b�seta)�open�write�textwrap�dedentr �str�lenr )r �tmp_path�f_path�ff�modr r r �test_defaultPrivate) s z%TestPublicPrivate.test_defaultPrivatec C s� |d }|� d��}|�t�d�� W d Q R X t�t|�g�}t|�dksNt�|d }d|d d d ksnt�d |d d d ks�t�d|d d d ks�t�d |d d d ks�t�d S ) Nzmod.f90r a+ module foo public integer, private :: a public :: setA contains subroutine setA(v) integer, intent(in) :: v a = v end subroutine setA end module foo r r r r r r r r! )r" r# r$ r% r r& r' r )r r( r) r* r+ r r r �test_defaultPublicC s z$TestPublicPrivate.test_defaultPublicN)r r r r, r- r r r r r ( s r c @ s e Zd ZdZdd� Zdd� ZdS )� TestExternalaY integer(8) function external_as_statement(fcn) implicit none external fcn integer(8) :: fcn external_as_statement = fcn(0) end integer(8) function external_as_attribute(fcn) implicit none integer(8), external :: fcn external_as_attribute = fcn(0) end c C s$ dd� }| j �|�}|dks t�d S )Nc S s | d S )N�{ r )�xr r r �incrl s z5TestExternal.test_external_as_statement.<locals>.incrr/ )r Zexternal_as_statementr )r r1 �rr r r �test_external_as_statementk s z'TestExternal.test_external_as_statementc C s$ dd� }| j �|�}|dks t�d S )Nc S s | d S )Nr/ r )r0 r r r r1 r s z5TestExternal.test_external_as_attribute.<locals>.incrr/ )r Zexternal_as_attributer )r r1 r2 r r r �test_external_as_attributeq s z'TestExternal.test_external_as_attributeN)r r r r r3 r4 r r r r r. Z s r. c @ s" e Zd ZdZe�d�Zdd� ZdS )�TestCrackFortranz.f90a subroutine gh2848( & ! first 2 parameters par1, par2,& ! last 2 parameters par3, par4) integer, intent(in) :: par1, par2 integer, intent(out) :: par3, par4 par3 = par1 par4 = par2 end subroutine gh2848 c C s | j �dd�}|dkst�d S )Nr r )r r )r Zgh2848r )r r2 r r r � test_gh2848� s z TestCrackFortran.test_gh2848N)r r r �suffixr$ r% r r6 r r r r r5 w s r5 )�numpyr Z numpy.testingr � r Z numpy.f2pyr �tempfiler$ ZF2PyTestr r r. r5 r r r r �<module> s 2
| ver. 1.4 |
Github
|
.
| PHP 8.3.23 | Генерация страницы: 0.05 |
proxy
|
phpinfo
|
Настройка