flang/module/__ppc_types.f90

   1 !===-- module/__ppc_types.f90 ----------------------------------------------===!
   2 !
   3 ! Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
   4 ! See https://llvm.org/LICENSE.txt for license information.
   5 ! SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
   6 !
   7 !===------------------------------------------------------------------------===!
   8
   9 module __ppc_types
  10   private
  11   ! Definition of derived-types that represent PowerPC vector types.
  12   type __builtin_ppc_intrinsic_vector(element_category, element_kind)
  13     integer, kind :: element_category, element_kind
  14     integer(16) :: storage
  15   end type
  16
  17   type __builtin_ppc_pair_vector
  18     integer(16) :: storage1
  19     integer(16) :: storage2
  20   end type
  21
  22   type __builtin_ppc_quad_vector
  23     integer(16) :: storage1
  24     integer(16) :: storage2
  25     integer(16) :: storage3
  26     integer(16) :: storage4
  27   end type
  28
  29   public :: __builtin_ppc_intrinsic_vector
  30   public :: __builtin_ppc_pair_vector
  31   public :: __builtin_ppc_quad_vector
  32
  33 end module __ppc_types