URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [intrinsic_associated_2.f90] - Rev 760
Go to most recent revision | Compare with Previous | Blame | View Log
! Program to test the ASSOCIATED intrinsic with cross-kindsprogram intrinsic_associated_2logical*4 :: t4, L44, L48logical*8 :: t8, L84, L88real*4, pointer :: a4p(:, :)real*8, pointer :: a8p(:, :)real*4, target :: a4(10, 10)real*8, target :: a8(10, 10)t4 = .true.t8 = .true.t8 = t4a4p => a4a8p => a8L44 = t4 .and. associated (a4p, a4)L84 = t8 .and. associated (a4p, a4)L48 = t4 .and. associated (a8p, a8)L88 = t8 .and. associated (a8p, a8)if (.not. (L44 .and. L84 .and. L48 .and. L88)) call abort ()nullify (a4p, a8p)L44 = t4 .and. associated (a4p, a4)L84 = t8 .and. associated (a4p, a4)L48 = t4 .and. associated (a8p, a8)L88 = t8 .and. associated (a8p, a8)if (L44 .and. L84 .and. L48 .and. L88) call abort ()a4p => a4(1:10:2, 1:10:2)a8p => a8(1:4, 1:4)L44 = t4 .and. associated (a4p, a4(1:10:2, 1:10:2))L84 = t8 .and. associated (a4p, a4(1:10:2, 1:10:2))L48 = t4 .and. associated (a8p, a8(1:4, 1:4))L88 = t8 .and. associated (a8p, a8(1:4, 1:4))if (.not. (L44 .and. L84 .and. L48 .and. L88)) call abort ()end
Go to most recent revision | Compare with Previous | Blame | View Log