URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [c_kind_int128_test2.f03] - Blame information for rev 310

Go to most recent revision | Details | Compare with Previous | View Log


! { dg-do run }
! { dg-options "-std=gnu" }
! { dg-require-effective-target fortran_integer_16 }
!
! Note: int_fast128_t currently not supported.
 
program c_kind_int128
  use, intrinsic :: iso_c_binding
  integer(c_int128_t) :: a
  integer(c_int_least128_t) :: b
! integer(c_int_fast128_t) :: c
 
  if (sizeof (a) /= 16) call abort
  if (sizeof (b) /= 16) call abort
!  if (sizeof (c) /= 16) call abort
end program c_kind_int128

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do run }`
2			`! { dg-options "-std=gnu" }`
3			`! { dg-require-effective-target fortran_integer_16 }`
4			`!`
5			`! Note: int_fast128_t currently not supported.`
6
7			`program c_kind_int128`
8			`use, intrinsic :: iso_c_binding`
9			`integer(c_int128_t) :: a`
10			`integer(c_int_least128_t) :: b`
11			`! integer(c_int_fast128_t) :: c`
12
13			`if (sizeof (a) /= 16) call abort`
14			`if (sizeof (b) /= 16) call abort`
15			`! if (sizeof (c) /= 16) call abort`
16			`end program c_kind_int128`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [c_kind_int128_test2.f03] - Blame information for rev 310