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

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [character_passing.f90] - Blame information for rev 12

Details | Compare with Previous | View Log


! PR middle-end/20030
! we were messing up the access in LSAME for
! the character arguments.
      program foo
      character*1 a1, a2, b
      logical LSAME, x
      a1='A'
      a2='A'
      b='B'
      x = LSAME(a1,a2)
      if ( .not. x ) then
        call abort  ();
      endif
      end
 
      logical function LSAME( CA, CB )
      character CA, CB
      integer   INTA, INTB
      INTA = ICHAR( CA )
      INTB = ICHAR( CB )
      LSAME = INTA.EQ.INTB
      end

Line No.	Rev	Author	Line
1	12	jlechner	`! PR middle-end/20030`
2			`! we were messing up the access in LSAME for`
3			`! the character arguments.`
4			`program foo`
5			`character*1 a1, a2, b`
6			`logical LSAME, x`
7			`a1='A'`
8			`a2='A'`
9			`b='B'`
10			`x = LSAME(a1,a2)`
11			`if ( .not. x ) then`
12			`call abort ();`
13			`endif`
14			`end`
15
16			`logical function LSAME( CA, CB )`
17			`character CA, CB`
18			`integer INTA, INTB`
19			`INTA = ICHAR( CA )`
20			`INTB = ICHAR( CB )`
21			`LSAME = INTA.EQ.INTB`
22			`end`

Browse

Tools

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [character_passing.f90] - Blame information for rev 12