1! { dg-do compile } 2! Structure constructor with component naming, test that an error is emitted if 3! a component is given two initializers. 4 5PROGRAM test 6 IMPLICIT NONE 7 8 ! Structure of basic data types 9 TYPE :: basics_t 10 INTEGER :: i 11 REAL :: r 12 END TYPE basics_t 13 14 TYPE(basics_t) :: basics 15 16 basics = basics_t (42, r=1.5, i=15) ! { dg-error "'i' is initialized twice" } 17 basics = basics_t (42, r=1., r=-2.) ! { dg-error "has already appeared in the current argument list" } 18 19END PROGRAM test 20