| Server IP : 209.209.40.120 / Your IP : 216.73.217.112 Web Server : Microsoft-IIS/10.0 System : Windows NT NEWWWW 10.0 build 17763 (Windows Server 2019) i586 User : NEWWWW$ ( 0) PHP Version : 8.3.30 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : C:/Python312/Lib/site-packages/numpy/f2py/tests/__pycache__/ |
Upload File : |
�
�gG1 � �X � d Z ddlZddlZddlZddlZddlZddlZddlZddlZddl Z ddl
Z
ddlZddl
mZ ddlmZ ddlmZmZ ddlmZ ddlmZ d!d�Zd Zd
Z G d� d� Zes e� Zej; � d
� Zd� Zd� Z d� Z!da"da#ejH dk( r= ee%� jL jL jL Z' e(e'j d� � Z)d� Z*d� Z+d� Z,d� Z-e-g g g dfd�� Z.e-g g g ddfd�� Z/ G d� de� Z0d!d�Z1 G d� d� Z2d� Z3e jh d � � Z5y)"z�
Utility functions for
- building and importing modules on test time, using a temporary location
- detecting if compilers are present
- determining paths to tests
� N)�Path)� asunicode)�temppath�IS_WASM)�
import_module)�MesonBackendc � � t j dk( rt j dd�� t j
� } t j j |d� }t |d� 5 }|j d� |j d| � d �� |rL|j | � d
| � d �� |j | � d|� d�� |j d
| � d| � d| � d| � d� � d d d � t j g d�d|d�� }j dk( t j |� S # 1 sw Y �IxY w# t j $ r t j dd�� Y �\w xY w# t j |� w xY w)N�win32z*No Fortran tests on Windows (Issue #25134)T)�allow_module_levelzmeson.build�wzproject('check_compilers')
zadd_languages('z')
z _compiler = meson.get_compiler('z_code = '''z'''
�_have_z
_feature =z_compiler.compiles(z_code, name: 'z feature check')
)�meson�setup�btmpF)�check�cwd�capture_outputz3meson not present, skipping compiler dependent testr )�sys�platform�pytest�skip�tempfile�mkdtemp�os�path�join�open�write�
subprocess�run�CalledProcessError�
returncode�shutil�rmtree)�lang�code_snippet�tmpdir�
meson_file�f�runmesons �7C:\Python312\Lib\site-packages\numpy/f2py/tests/util.py�check_languager, sd � �
�|�|�w�����@�UY�Z�
�
�
�
�F���W�W�\�\�&�-�8�
�
�*�c�
"�
�a�
�G�G�2�3�
�G�G�o�d�V�4�0�1�����4�&� @���d�K�L����4�&��L�>��?�@�����T�F�*��f�/��v� 6�#�f�$6�8��
� h�!�~�~�*���#� �H� �"�"�a�'��
�
�f��-
�
��$ �,�,� h��K�K�M�bf�g� h�� �
�
�f��sI � ,E% �,A5D)�!E% �*D5 �E% �)D2�.E% �5*E"�E% �!E"�"E% �%E<z]
C Example Fortran 77 code
PROGRAM HELLO
PRINT *, 'Hello, Fortran 77!'
END
z�
! Example Fortran 90 code
program hello90
type :: greeting
character(len=20) :: text
end type greeting
type(greeting) :: greet
greet%text = 'hello, fortran 90!'
print *, greet%text
end program hello90
c � � e Zd Zd� Zd� Zy)�CompilerCheckerc �<