! { 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