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   implicit none
  11
  12   ! Set PRIVATE by default to explicitly only export what is meant
  13   ! to be exported by this MODULE.
  14   private
  15
  16   ! Definition of derived-types that represent PowerPC vector types.
  17   type __builtin_ppc_intrinsic_vector(element_category, element_kind)
  18     integer, kind :: element_category, element_kind
  19     integer(16) :: storage
  20   end type
  21
  22   type __builtin_ppc_pair_vector
  23     integer(16) :: storage1
  24     integer(16) :: storage2
  25   end type
  26
  27   type __builtin_ppc_quad_vector
  28     integer(16) :: storage1
  29     integer(16) :: storage2
  30     integer(16) :: storage3
  31     integer(16) :: storage4
  32   end type
  33
  34   public :: __builtin_ppc_intrinsic_vector
  35   public :: __builtin_ppc_pair_vector
  36   public :: __builtin_ppc_quad_vector
  37
  38 end module __ppc_types