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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [present_1.f90] - Blame information for rev 149

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


! { dg-do compile }
! Test the fix for PR25097, in which subobjects of the optional dummy argument
! could appear as argument A of the PRESENT intrinsic.
!
! Contributed by Joost VandeVondele 
!
 MODULE M1
  TYPE T1
   INTEGER :: I
  END TYPE T1
 CONTAINS
  SUBROUTINE S1(D1)
   TYPE(T1), OPTIONAL :: D1(4)
   write(6,*) PRESENT(D1%I)  ! { dg-error "must not be a sub-object" }
   write(6,*) PRESENT(D1(1)) ! { dg-error "must not be a sub-object" }
   write(6,*) PRESENT(D1)
  END SUBROUTINE S1
 END MODULE
 END
 

Line No.	Rev	Author	Line
1	149	jeremybenn	`! { dg-do compile }`
2			`! Test the fix for PR25097, in which subobjects of the optional dummy argument`
3			`! could appear as argument A of the PRESENT intrinsic.`
4			`!`
5			`! Contributed by Joost VandeVondele`
6			`!`
7			`MODULE M1`
8			`TYPE T1`
9			`INTEGER :: I`
10			`END TYPE T1`
11			`CONTAINS`
12			`SUBROUTINE S1(D1)`
13			`TYPE(T1), OPTIONAL :: D1(4)`
14			`write(6,*) PRESENT(D1%I) ! { dg-error "must not be a sub-object" }`
15			`write(6,*) PRESENT(D1(1)) ! { dg-error "must not be a sub-object" }`
16			`write(6,*) PRESENT(D1)`
17			`END SUBROUTINE S1`
18			`END MODULE`
19			`END`
20

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [present_1.f90] - Blame information for rev 149