1! { dg-do compile } 2! { dg-options "-std=f95" } 3! Check for notify-std-messages when F2003 structure constructors are compiled 4! with -std=f95. 5 6PROGRAM test 7 IMPLICIT NONE 8 9 ! Basic type with default initializers 10 TYPE :: basics_t 11 INTEGER :: i = 42 12 REAL :: r = 1.5 13 END TYPE basics_t 14 15 TYPE(basics_t) :: basics 16 17 ! This is ok in F95 18 basics = basics_t (1, 2.) 19 20 ! No argument naming in F95 21 basics = basics_t (1, r = 4.2) ! { dg-error "Fortran 2003" } 22 23 ! No optional arguments in F95 24 basics = basics_t () ! { dg-error "Fortran 2003" } 25 basics = basics_t (5) ! { dg-error "Fortran 2003" } 26 27END PROGRAM test 28