OpenCores
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.fortran-torture/] [compile/] [implicit_1.f90] - Blame information for rev 303

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 303 jeremybenn
! Test implicit character declarations.
2
! This requires some coordination between the typespec and variable name range
3
! matchers to get it right.
4
module implicit_1
5
  integer, parameter :: x = 10
6
  integer, parameter :: y = 6
7
  integer, parameter :: z = selected_int_kind(4)
8
end module
9
subroutine foo(n)
10
  use implicit_1
11
  ! Test various combinations with and without character length
12
  ! and type kind specifiers
13
  implicit character(len=5) (a)
14
  implicit character(n) (b)
15
  implicit character*6 (c-d)
16
  implicit character (e)
17
  implicit character(x-y) (f)
18
  implicit integer(z) (g)
19
  implicit character (z)
20
 
21
  a1 = 'Hello'
22
  b1 = 'world'
23
  c1 = 'wibble'
24
  d1 = 'hmmm'
25
  e1 = 'n'
26
  f1 = 'test'
27
  g1 = 1
28
  x1 = 1.0
29
  y1 = 2.0
30
  z1 = 'A'
31
end
32
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.