1! { dg-do compile } 2! Test for errors when excess components are given for a structure-constructor. 3 4PROGRAM test 5 IMPLICIT NONE 6 7 ! Structure of basic data types 8 TYPE :: basics_t 9 INTEGER :: i 10 REAL :: r = 1.5 11 END TYPE basics_t 12 13 TYPE(basics_t) :: basics 14 15 basics = basics_t (42, 1.5, 1000) ! { dg-error "Too many components" } 16 basics = basics_t (42, xxx = 1000) ! { dg-error "is not a member" } 17 18END PROGRAM test 19