1! { dg-options "-O2 " } 2 3program superficie_proteina 4 integer, parameter :: LONGreal = selected_real_kind(12,90) 5 integer :: number_of_polypeptides, maximum_polypeptide_length 6 real (kind = LONGreal), dimension (:,:), allocatable :: individual_conformations 7 allocate (individual_conformations(-number_of_bins:0,number_of_polypeptides)) 8 individual_conformations = 0.0_LONGreal 9end program superficie_proteina 10