diff --git a/.github/workflows/ci_windows.yml b/.github/workflows/ci_windows.yml index ba811a580..6725616fa 100644 --- a/.github/workflows/ci_windows.yml +++ b/.github/workflows/ci_windows.yml @@ -56,7 +56,12 @@ jobs: ninja mingw-w64-x86_64-minizip-ng - - name: Install fypp + - name: Install fypp (MSYS) + if: contains(matrix.msystem, 'MSYS') + run: pacman -S --noconfirm python-pip && pip install fypp + + - name: Install fypp (MinGW) + if: contains(matrix.msystem, 'MINGW') run: pip install fypp - run: >- diff --git a/src/stdlib_array.fypp b/src/stdlib_array.fypp index ab2811ef3..4f7aaf960 100644 --- a/src/stdlib_array.fypp +++ b/src/stdlib_array.fypp @@ -17,9 +17,7 @@ module stdlib_array !> Helper class to allocate t_array as an abstract type. type, public :: t_array_wrapper class(t_array), allocatable :: array - contains - #:for k1, t1 in KINDS_TYPES #:for rank in RANKS generic :: allocate_array => allocate_array_${t1[0]}$${k1}$_${rank}$ @@ -45,7 +43,7 @@ contains #:for k1, t1 in KINDS_TYPES #:for rank in RANKS !> Allocate an instance of the array within the wrapper. - subroutine allocate_array_${t1[0]}$${k1}$_${rank}$(wrapper, array, stat, msg) + subroutine allocate_array_${t1[0]}$${k1}$_${rank}$ (wrapper, array, stat, msg) class(t_array_wrapper), intent(out) :: wrapper ${t1}$, intent(in) :: array${ranksuffix(rank)}$ integer, intent(out) :: stat