Subversion Repositories openrisc

! { dg-do compile }

! { dg-options "-std=f95" }

! Check for notify-std-messages when F2003 structure constructors are compiled

! with -std=f95.

PROGRAM test

  IMPLICIT NONE

  ! Basic type with default initializers

  TYPE :: basics_t

    INTEGER :: i = 42

    REAL :: r = 1.5

  END TYPE basics_t

  TYPE(basics_t) :: basics

  ! This is ok in F95

  basics = basics_t (1, 2.)

  ! No argument naming in F95

  basics = basics_t (1, r = 4.2) ! { dg-error "Fortran 2003" }

  ! No optional arguments in F95

  basics = basics_t () ! { dg-error "Fortran 2003" }

  basics = basics_t (5) ! { dg-error "Fortran 2003" }

END PROGRAM test